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systems  (See  Fig.  1). 

a  Tensile  stresses  in  the  global 

,y  coordinate  system. 

v  Displacement  normal  to  the 

crack-axis. 

P  Applied  load  on  the  three- 

point  bend  specimen. 

ii .  Roots  of  the  characteristic 

1  equation. 

a..  Components  of  the  global 

J  compliance  matrix. 
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DESCRIPTION 

Stress  intensity  factors  cor¬ 
responding  to  symmetric  and 
antl-symnetrlc  loading  re¬ 
spectively.  A  subscript  c 
Indicates  a  critical  value 
of  K,  l.e.,  a  value  at  which 
the  crack  propagates  catas¬ 
trophically. 

A  candidate  value  of  the  critical 
stress-intensity  factor. 

The  average  value  of  Kq  for  a 
given  laminate,  obtained  by 
averaging  the  K»  values  obtained 
for  several  specimens  of  the 
laminate. 

St:  ai  n-energy  release  rate. 

Initial  slope  of  the  experimental 
plot  of  load  vs.  specimen 
deflection  (See  Fig.  12). 

Load  corresponding  to  the  Inter¬ 
section  of  the  secant  of  slope 
M  with  the  curve  of  load  vs. 
specimen  deflection  (See  Fig.  12). 

Applied  load  at  which  crack 
propagation  occurred. 

Crack-length  (See  Fig.  1). 

Angle  of  rotation  between  the 
global  and  lamina  coordinate 
systems  (See  Fig.  1). 
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1 

e 

Specimen  edge  distance. 

d 

Bolt  bearing  diameter. 

s 

Total  specimen  width. 

t 

Total  specimen  length. 

t 

Specimen  thickness 

a1 

1— principal  lamina  stress. 

ffiu 

1— principal  ultimate  lamina 
stress. 

DIST 

Normalized  dlstortlonal  energy. 

2 

ftu 

Effective  tension  strength. 

FSU 

Effective  shear-out  strength. 

fbru 

Effective  bearing  strength. 

s 

Bolt  bearing  specimen  width. 

E 

Bolt  bearing  specimen  edge  distance. 

t 

Bolt  bearing  specimen  thickness. 

0 

Bolt  bearing  specimen  diameter. 

9 

L 

Bolt  bearing  specimen  length. 

L 

Total  joint  length. 

N 

Number  of  bolts  per  column. 

F 

Maximum  load  to  be  carried  per 
column  of  bolts 
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Subscripts  and  Superscripts 

m  Main  plate 

s  Splice  plate 

B  Bolt  material 

u  Ultimate  allowable 

t  Tension 

c  Compression 
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IV  2  W(X  )  Height  function  of  a  composite 

1  plate. 

Xj  Variables  of  a  composite  plate. 

Fj(Xj)  Constraint  functions  on  W(X.). 

X.  Lagrange  multipliers  for  the 

J  constraint  functions. 

P  Objective  function  for 

minimization. 

3  M  Applied  torsional  moment. 

a,  b  Semi -major  and  sen* -mi  nor  axes 

of  the  ellipse. 

t  Shear  stress . 

4  t  Thickness  of  the  bolt  bearing 

specimen. 

S  Width  of  the  bolt  bearing 

specimen. 

E  Distance  from  the  center  of 

the  bolt  hole  to  the  near  edge 
of  the  bolt  bearing  specimen. 

D  Diameter  of  the  bolt  hole  in 

the  bolt  bearing  specimen. 

XL  Distance  from  the  bolt  hole 

to  the  far  edge  of  the  bolt 
bearing  specimen. 

P  Load  applied  to  the  bolt 

bearing  specimen. 

Ftu  Failure  stress  for  the  tension 

mode  failure  of  the  bolt  bear¬ 
ing  specimen. 

Fsu  Failure  stress  for  the  shear 

out  mode  failure  of  the  bolt 
bearing  specimen. 
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Pbu  failure  stress  for  the  bear¬ 

ing  mode  failure  of  the  bolt 
bearing  specimen. 

L  Percentage  of  0°  plies  In  the 

bolt  bearing  specimen. 

M  Percentage  of  90°  plies  In 

the  bolt  bearing  specimen. 

N  Percentage  of  ±45°  plies  In 

the  bolt  bearing  specimen. 
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P1j 

Ex*  Ey’  Gxy 
Vxy*  nxy.y*  nxy,x 
“U 


Stress  field. 

Strain  field. 

Displacement  field. 
Material  compliances. 
Axial,  shear  moduli. 
Coupling  coefficients. 
Material  stiffness. 

Stress  functions. 
Characteristic  directions. 


v 

1 


•l»  *2 

*[  ] 


pk*  qk 

V  \ 

V  ny 


Ik 


Ajk’  Cjk*  Djx 


e1j 

Sj IV  DjC1 


Roots  of  the  characteristic  equation. 

/T. 

Derivatives  of  F^z-j),  F2(z2). 

Real  part  of  [  ]. 

Constants . 

Traction  components. 

Outward  normal  . 

Stress  function. 

Kronecker  delta . 

Complex,  real  constants. 

Fundamental  displacement  tensor. 
Fundamental  traction  tensor. 

Complex  constants. 

Strain  field. 

Tensor  kernels  for  ^ . 
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P(x),  Q(x) 
r(P.Q) 


v 


Cartesian  coordinates. 
Singular  Influence  tensor. 
Boundary  points. 

Distance  between  P(x),  Q(x). 
Poisson's  ratio. 

Shear  modulus. 


PI. 


6 

U 


1j 

1 


t 


1 


°1j 

"j 

Tu 

3R 


N 

V  *n 
[I] 

[AT],  [AU] 


{t> 

(ul 

AS 


AO 


kl  j* 
klj 


Kronecker  delta. 
Displacement  vector. 
Traction  vector. 

Stress  tensor. 

Unit  outward  normal  vector. 
Singular  influences  tensor. 
Surface  of  the  body,  R. 
Number  of  boundary  segments. 
Discrete  boundary  points. 
Identity  matrix. 

Coefficient  matrices. 
Traction  vector. 
Displacement  vector. 


Integrals  of  Influence  tensors. 
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3  e 

X 

x-dlrection  strain. 

u  (l). 

Ux(2) 

x-di recti on  displacement  at 
segment  number  1 ;  segment 

number  2. 

l 

Distance  between  midpoints 
of  adjacent  boundary  segments, 
as  s  own  In  Fig.  1  and  Fig.  2. 

Y* 

y- coordinate  of  last  valid 
data  point  obtained  for  In¬ 
terior  solution  points,  be¬ 
fore  data  diverge  from  the 
theoretical  solution. 

SCF 

Stress  concentration  factor. 

a 

Semi -major  axis  of  an  ellipse. 

b 

Semi -ml nor  axis  of  an  ellipse. 

c 

Semi-focal  distance. 

°x 

x-dl recti  on  stress. 

ay 

y-dlrectlon  stress. 

4  C1 jkl 

Elastic  constant  tensor. 

uk 

Displacement  vector. 

Tij 

Stress  tensor. 

eij 

Strain  tensor. 

Hi 

Second  order,  linear  operator. 

Uu 

Singular  Influence  tensor. 

x.  y 

Spatial  points. 

3R,  r 

Surfaces. 

Tij 

Singular  Influence  tensor 

t. 

Traction  vector. 
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4  E 

Radius. 

nk 

Unit  outward  normal  vector. 

ir 

PI. 

Ay 

Laplacldn  at  y. 

i 

Vector. 

n5 

Sphere  of  unit  radius  £  =  0. 

pkJ(c) 

Inverse  of  Qjk(r'» 

Q1k(?> 

Characteristic  form  of  L^. 

R 

Vector,  x  —  y. 

♦ 

Angle  between  R  and  C* 

Aik 

Tensor. 

e1jk 

Alternating  symbol. 

Det  Q 

Determinant  of  Q^.. 

X,  U 

Lame 'constants. 

a,  0 

Material  constants. 

Angle  between  R  and  x. ; 
polynomials  in~5,  n. 

c 

Constant. 

Wu3 

Functions  of  y,  z. 

Sx,Sy,Sz 

Surfaces  with  normals  in 
x,  y,  z  directions. 

l 

Length  of  specimens. 

A  A 

u1j’  T1j 

Influence  tensors,  independ¬ 
ent  of  X. 

Vector  function. 

w 

Lamina  width. 

t 

Lamina  thickness. 

SUMMARY  OF  THE  INTERACTIVE  PROGRAM 


1.1  INTRODUCTION 

The  Carnegle-Mellon  University  team  of  faculty  and  students  has 
developed  a  unique  program  of  Interaction  between  the  University  team, 
the  Air  Force  Materials  Laboratory,  and  certain  aercspace  Industries, 
notably  General  Dynamics,  Convalr  Aerospace  Division  (Fort  Worth).  The 
Interactive  program  has  focused  on  the  application  of  mechanics  capabili¬ 
ties  of  the  CMU  team  to  the  stress  and  strength  analysis  of  advanced 
fiber  composite  structures.  The  broad  objectives  of  the  program  are  the 
following: 

1.  Creation  of  new  and  effective  means  of  communication  and 
Interaction  between  CMU  and  General  Dynamics  and  other 
aerospace  Industries. 

2.  Involvement  of  the  CMU  team  In  tne  solution  of  fundamental 
engineering  problems  arising  from  the  application  of  advanced 
composites  In  aerospace  structures. 

3.  Development  by  the  CMU  team  of  new  stress  analysis  capabili¬ 
ties  and  results,  strength  criteria,  design  Information  and 
educational  material  for  advanced  composites  technology. 

To  accomplish  these  goals,  a  two  year  effort  was  Initialed  at 
CMU  under  Air  Force  sponsorship  In  November,  1969.  The  two  year  program 
has  been  completed  and  has  successfully  met  the  goals  delineated  above. 

The  purpose  of  this  Final  Report  Is  to  summarize  the  achievements  of  the 
Interactive  Program.  This  first  Chapter  discusses  results  for  all  of  the 
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objectives.  Following  Chapters  discuss  In  detail  the  results  for 
objectives  2  and  3. 

The  principal  Investigators  for  this  program  originally  adopted 
the  position  that  the  second  objective  would  be  promoted  through  extensive 
contacts  with  Industry,  and  that  student  members  of  the  CMU  team  would  be 
select  senior  undergraduate  and  first-  and  second-year  graduate  students. 
This  position  precluded  supporting  Ph.D.  and  faculty  research  by  the 
program.  However,  two  student  members  of  the  CMU  team  have  passed  the 
Ph.D.  qualifying  exam  and  are  doing  their  research  based  on  their  project 
experience  (Fracture  of  Composites;  Design  of  Mechanically  Fastened  Joints). 
To  date,  five  undergraduate  and  fifteen  graduate  students  have  partici¬ 
pated  to  some  extent  In  the  Interactive  Program.  Faculty  other  than  the 
Principal  Investigators  have  participated  In  the  educational  program  to 
become  familiarized  with  advanced  composites  technology  and  to  lend 
particular  expertise  as  needed. 

1.2  FIRST  AND  SECOND  TEAR  PROGRAMS 
1.2.1  Phase  I 

During  each  year  the  Interactive  program  has  been  divided  Into 
three  phases:  education,  project  research,  and  reporting.  The  education 
phase  Is  based  on  a  Fall  Semester  course,  Mechanics  of  Fiber  Composite 
Materials.  The  purpose  of  the  course  Is  to  bring  the  students  "up-to- 
speed"  In  advanced  composites  technology  such  that  they  can  contribute 
significantly  to  the  solution  of  engineering  problems.  In  the  second 
year  of  the  program.  Dr.  Cruse  offered  an  advanced  course,  Two  Dimensional 
Anisotropic  Elasticity ,  which  was  based  on  the  analytical  solution  of 
membrane  problems  of  composites  using  the  complex  variable  approach.  A 
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summary  of  the  educational  program  Is  Included  In  Appendix  I,  Chapter  I. 
This  summary  Includes  course  outlines  and  descriptions,  references,  and 
homework  problem  titles. 

The  emphasis  In  the  course  work  Is  on  the  Identification  of 
state-of-the-art  knowledge  and  on  solving  meaningful  homework  problems. 

An  example  of  this  Is* the  use  of  the  "pressure  vessel"  problem.  Students 
are  asked  to  find  the  optimal  winding  angle  (±a)  and  maximum  pressure  for 
a  cylindrical  pressure  vessel,  using  a  fixed  material  (e.g.  graphite-epoxy) 
and  each  of  the  proposed  failure  criteria.  The  problem  forces  the  student 
to  exercise  lamination  theory  and  allows  a  comparison  of  the  allowable 
pressures . 

Another  Important  problem  area  that  was  used  Is  the  stress  con¬ 
centration  factors  In  composite  plates  subject  to  In-plane  loading.  The 
fact  that  these  factors  are  always  higher  than  for  isotropic  materials  Is 
emphasized.  The  discussion  leads  to  other  measures  of  strength  such  as 
associated  with  sharp  flaws. 

The  students  make  considerable  use  of  the  computer  and  in-house 
analysis  programs  such  as  finite  element  and  boundary-integral  methods 
for  boundary  value  problems  and  a  pattern  search  program  for  optimization 
and  synthesis.  Through  all  of  the  exercises  the  student  develops  insight 
Into  the  fundamental  mechanics  questions  and  spends  very  little  time  on 
the  nature  of  the  analysis  programs. 

1.2.2  Phase  II 

The  second  phase  lasts  through  the  Spring  Semester  and  sometimes, 
for  significant  problems,  through  the  summer.  The  purpose  of  the  second 
phase  is  to  Involve  the  students  In  engineering  problems  in  advanced 


composites  technology.  The  students,  with  faculty  and  Industry  guidance, 
select  problems  of  Interest  to  the  student  and  industry.  The  process 
of  problem  selection  for  new  members  of  the  team  was  a  major  portion  of 
the  second  half  of  the  Fall  Semester  course. 

In  January  of  each  year  Or.  Cruse  presented  the  project  problems 
at  General  Dynamics  for  evaluation  and  reconnendatlons.  At  the  same  time 
engineers  at  General  Dynamics  were  Identified  who  would  act  as  the  indus¬ 
trial  contact  for  the  student  working  on  a  particular  project. 

A  major  portion  of  the  budget  of  the  Program  was  devoted  to 
travel  support.  The  reasoning  is  that  the  CMU  team,  to  be  effective,  must 
have  considerable  visibility  of  the  Industrial  problems  In  composites 
technology.  Thus,  during  the  second  phase  the  University  team  made 
several  visits  to  Industrial  locations,  technical  meetings,  program  reviews, 
and  special  Air  Force  programs.  These  trips  have  also  served  to  give  the 
CMU  team  visibility  as  a  group  doing  significant  work  In  the  area  of  ad¬ 
vanced  composites  technology.  A  complete  list  of  trip  report  titles  Is 
presented  In  Appendix  II,  Chapter  I.  This  list  Illustrates  the  breadth  and 
depth  of  the  CMU  team  contacts  with  other  teams  In  the  technology  area. 

In  the  first  year  of  the  program,  the  CMU  team  made  a  group 
visit  to  General  Dynamics.  This  trip  was  for  presenting  student  progress 
reports  on  their  projects;  It  also  was  a  chance  for  the  student  members 
of  the  team  to  see  manufacturing  and  test  programs  In  progress.  In  the 
second  year,  the  new  member  of  the  CMU  team  to  pursue  project  work  visited 
Boelng/Vertol  to  see  their  advanced  composites  manufacturing  and  test 
program.  However,  the  rest  of  the  members  of  the  team  doing  project  re¬ 
search  were  in  their  second  year,  and  thus  a  team  visit  to  Industry 
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was  not  made  during  the  second  phase  of  the  second  year. 

The  telephone  Is  used  heavily  during  the  second  phase.  By 
identifying  engineers,  perhaps  at  different  Industrial  locations,  who  had 
an  Interest  In  the  student  project  problem,  each  student  could  ask 
questions  and  receive  advice,  data,  and  evaluation  without  the  necessity 
of  a  full  visit  with  the  engineer.  The  CMU  team  found  that  continual 
contact  with  engineers  played  a  major  role  In  the  success  of  the 
Interactive  Program. 

1.2.3  Phase  III 

The  third  phase  of  the  program  Is  the  reporting  phase  for  each 
project  problem.  Each  student,  upon  reaching  a  major  milestone,  or  when 
completing  his  participation  in  the  program.  Is  required  to  provide  a 
written  project  report  which  is  typed  and  filed.  Thus,  the  reporting 
phase  is  Interweaved  throughout  the  program.  A  list  of  the  titles  of  all 
reports  generated  and  on  file  Is  given  in  Appendix  III,  Chapter  I.  The  re¬ 
ports  contain  major  homework  problem  solutions  from  Phase  I  work,  project 
proposals  and  progress  reports,  tutorial  material,  and  final  project 
reports. 

Some  of  the  project  reports  are  significant  enough  to  be  published 
in  technical  journals  [1,2]^  and  to  be  presented  at  technical  meetings 
[3,4].  In  addition  ether  reports  have  been  submitted  for  presentation 
to  the  13th  AIAA/ASME  Structures,  Structural  Dynamics  and  Materials 
Conference  [5,6],  while  another  has  been  accepted  for  the  1972  ASTM 

^References  are  denoted  by  brackets  [  ]  and  are  found  at  the  end  of  each 
major  segment  of  this  Report. 
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meeting  on  composites  [7].  These  papers  serve  to  give  to  CMU  team  greater 
visibility  in  the  composites  community  as  well  as  to  report  Important 
results. 

In  addition  to  the  above  major  reports,  the  program  had  a 
requirement  for  monthly  letter  reports,  at  the  request  of  the  Principal 
Investigators.  These  reports  required  monthly  student  progress  reports 
while  the  students  were  doing  project  research.  The  monthly  report  served 
to  force  each  member  of  the  team  to  be  fully  aware  of  his  own  and  others' 
progress.  In  addition  the  reports  kept  the  Industrial  team  informed  of 
project  progress. 

At  the  end  of  the  summer,  each  year,  the  CMU  team  prepared  final 
project  reports  which  were  presented  at  the  Air  Force  Materials  Laboratory 
and  at  General  Dynamics.  This  final  reporting  has  been  the  most  important 
facet  of  Phase  III  as  the  CMU  team  seeks  critical  review  of  its  p-  „grams 
by  the  active  researchers  and  engineers  at  both  locations.  The  final 
report  meetings  served  as  the  focal  point  for  examination  of  progress, 
but  they  also  provided  an  opportunity  to  explore  new  areas  of  project 
work,  team  emphasis,  and  Industrial  support. 

1.3  RESEARCH  PROJECTS  COMPLETED 

A  sizeable  number  of  project  research  problems  have  been  solved 
to  date  and  the  titles  are  listed  In  Appendix  II,  Chapter  I.  Listed 
below  are  the  major  project  titles,  the  responsible  investigator,  a 
summary  of  the  project  and  project  reports  as  found  In  the  SM  file  In 
the  Mechanical  Engineering  Department.  The  following  Chapters  of  this 
Final  Report  present  In  detail  the  major  accomplishments  of  each  project. 
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1.3.1  Fracture  of  Advanced  Couftosites  (H.  J.  Konlsh,  Jr.) 

This  project  Includes  analytical  and  experimental  Investigations 
of  the  fracture  of  moderately  thick  graphite/epoxy  specimens.  Information 
to  date  has  been  very  encouraging  In  that  a  considerable  amount  of  linear 
elastic  fracture  mechanics  theory  seems  applicable  to  the  material. 

(SM  Reports  31,  41,  53,  64,  74,  80,  81;  work  In  progress). 

1.3.2  Strength  of  Mechanically-Fastened  Joints  (J.  P.  Waszczak) 

This  project  has  gone  from  the  analysis  of  single-fastener  test 
coupons  to  the  analysis  of  joints  with  many  fasteners.  Due  to  the  weight 
penalty  associated  with  these  joints,  a  program  has  been  begun  to  develop 
a  synthesis  procedure  for  designing  multifastener  joints.  This  program 
has  a  strong  coupling  with  the  engineering  team  at  General  Dynamics. 

(SM  Reports  28,  34,  63,  76;  work  in  progress). 

1.3.3  Optimization  Methods  (S.  J.  Marulls;  Ford  Motor  Co.) 

The  project  was  to  Investigate  the  use  of  an  In-house,  pattern- 
search  optimization  method  for  composite  design  problems.  The  design  of 
mechanically-fastened  joints  was  considered,  using  the  In-house  program. 

An  effort  to  couple  the  optimization  program  to  the  available  finite 
element  program  was  unsuccessful  but  may  be  completed  In  the  future. 

The  optimization  program  has  been  found  suitable.  If  not  optimal,  for 
use  by  Mr.  Waszczak  in  his  project  research. 

(Report  SM-71;  work  suspended). 

1.3.4  Boundary- Integral  Equation  Solution  Methods  (T.  A.  Cruse,  W.  H. 

Bamford,  F.  J.  Rizzo) 

Three  separate  efforts  have  been  completed  In  this  area.  The 
first  reported  Is  the  development  of  an  isotropic,  two  dimensional 
boundary-integral  equation  method  and  a  subsequent  investigation  of  its 


ability  to  model  cutouts  under  tension.  The  second  reported  Is  the 
development  of  a  boundary-integral  method  for  fully-anlsotroplc  (mid-plane 
symmetric)  laminates.  (Currently,  the  anisotropic  program  Is  being  veri¬ 
fied  on  cutout  problems  and  some  of  these  results  are  report.)  The  third, 
completed  by  Prof.  F.  J.  Rizzo  of  the  University  of  Kentucky,  concerns 
solutions  to  Kelvin's  problem  In  anisotropic  three  dimensional  bodies, 
and  the  Interlaminar  shear  problem. 

(SM  Reports  45,  50,  66,  68,  70,  72;  work  In  progress). 

1. 4  EVALUATION  AND  HECOMENDATIONS 

It  Is  clear  that  the  goals  of  the  Interactive  Program  at  CMU 
have  been  met.  The  project  reports  contained  In  this  Final  Report  give 
ample  evidence  of  the  extent  to  which  the  CMU  team  has  become  competent 
in  research  and  application  problems  in  advanced  composites  technology. 
There  now  exists  considerable  interaction  and  support  between  the  General 
Dynamics  team  and  the  CMU  team.  In  particular.  General  Dynamics  has 
provided  test  specimens  for  the  Fracture  Program  and  a  summer  contract 
for  the  Joint  Project. 

However,  the  level  of  confidence  in  the  CMU  team  expressed  by 
General  Dynamics  has  come  late  In  the  program.  Conimini cation  and  inter¬ 
action  took  place  during  the  first  year  of  the  program  but  the  depth  of 
both  was  not  satisfying  to  either  team.  One  reason  for  this  was  that 
during  the  first  year  the  CMU  team  was  just  coming  up  to  speed  in  advanced 
composites  technology.  However,  based  on  the  results  of  the  program  re¬ 
view  at  the  end  of  the  first  year,  the  support  from  the  General  Dynamics 
team  Increased  rapidly.  The  other  reason  for  the  slow  start  was  the  lack 
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of  constant  contact  between  the  CMU  team  and  the  General  Dynamics  team. 
During  the  second  year,  much  more  contact  was  made,  principally  by  Dr. 

Cruse  visiting  General  Dynamics  and  liberal  use  of  the  telephone. 

Frequent  personal  contacts  are  critically  Important  to  the  success  of  an 
Interactive  program  such  as  ours. 

The  Impact  to  date  on  the  educational  program  at  CMU  has  been 
minor.  The  two  courses  cited  in  Appendix  I  plus  project  work  (counts  as 
course  work)  are  the  extent  of  highly  visible  composites  activities  In 
the  educational  program.  However,  seminars  given  by  General  Dynamics  and 
AFML  personnel,  and  by  the  Principal  Investigators  have  served  to  make 
other  faculty  aware  of  the  questions  of  materials  selection,  and  composites 
In  particular.  During  one  semester  Dr.  Cruse  taught  a  section  of  Senior 
Design  which  was  concerned  with  the  rationale  for  materials  selection. 

At  the  present  time  Dr.  Cruse  is  involved  in  an  effort  to  expand  the  CMU 
Post-College  Professional  Education  Program.  This  effort  includes  a  course 
on  fiber  composites. 

At  a  harder  level  to  document.  Instructors  In  the  basic  solid 
mechanics  courses  In  the  Mechanical  Engineering  Department  have  the  speci¬ 
mens  and  knowledge  to  aemonstrate  simple  anisotropic  effects.  It  is  hoped 
that  more  of  this  Information  can  be  meaningfully  involved  In  the  under¬ 
graduate  courses.  One  of  the  biggest  problems  which  mitigates  against 
new  courses  In  the  undergraduate  or  graduate  program  Is  the  financial 
state  of  the  University.  The  process  of  cutting-back  Is  underway  and 
will  likely  last  a  few  more  years. 

Finally,  the  question  arises  as  to  the  Impact  the  Program  has 
had  In  developing  graduates  with  a  competence  In  advanced  composites. 
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who  will  use  this  competence  In  the  aerospace  Industry.  To  date  this 
Impact  has  beer,  nearly  zero*  as  most  of  the  students  who  have  done 
significant  project  work  have  yet  to  graduate.  An  early  graduate  with 
contact  with  the  Interactive  Program  went  to  Pratt  and  Whitney;  another 
graduate  went  to  Ford  Motor  Company.  Several  graduate  students  with 
other  research  areas  have  taken  one  or  both  of  the  courses  offered  to 
date.  Those  In  the  Program  who  are  still  doing  project  work  are 
commissioned  officers  In  the  United  States  Army.  Thus  the  personnel 
Impact  will  require  more  time  to  develop. 

Two  years  ago,  CMU  had  no  active  research  In  the  area  of  advanced 
composites.  In  that  period  the  CMU  team  has  developed  an  effective 
education  -  project  program  that  Is  closely  related  to  fundamental 
engineering  problems  In  advanced  composites  technology.  Members  of  the 
CMU  team  have  present  and  published  an  Increasing  number  of  research 
papers,  and  have  participated  In  several  Air  Force  review  meetings.  The 
depth  and  breadth  of  research  accomplishments  are  reported  In  the  re¬ 
maining  Chapters  of  this  Final  Report.  Othex  measures  of  the  Program 
require  additional  time  to  mature. 
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1.6  APPENDIX  I:  SUMMARY  OF  EDUCATIONAL  MATERIAL 


I.  COURSE:  Mechanics  of  Fiber  Composite  Materials  (First  Semester) 

A.  Course  description 

B.  References 

C.  Course  outline 

II.  Project- type  Homework  Problems 

A.  Develop  computer  program  for  calculating  [A]  matrix 

B.  Develop  computer  program  to  reduce  laminate  strains 
to  lamina  stresses  and  strains 

C.  Analyze  dependence  of  the  [A]  mat  'x  terms  on  the  fiber 
orientation 

D.  Determine  the  effect  of  transverse  tension  on  the  Inter¬ 
laminar  shear  stress 

E.  Determine  the  optimum  winding  angle  (±)  for  a  pressure  vessel 

F.  Evaluate  the  deformation  In  a  helically-wound  (+)  cylinder 

6.  Evaluate  the  finite  element  solution  for  a  circular  cutout 

H.  Evaluate  the  finite  element  solution  for  a  composite  beam 

III.  Finite  Element  Sumnar/ 

A.  Course  notes  from  a  short  course  for  users 

B.  Usage  guide  for  In-house  finite  element  computer  programs 

IV.  COURSE:  Two  Dimensional  Anisotropic  Elasticity  (Second  Semester) 

A.  Course  description 

B.  Some  selected  prepared  course  notes 

V.  Project-type  Homework  Problems 

A.  Isotropic 

1.  General  solutions  for  ring-shaped  region 

2.  Bolt-bearing  solution 

3.  Concentrated  force  in  an  infinite  plate 

B.  Anisotropic 

1.  Stress  concentration  at  an  ellipse 

2.  Hoop  stress  distribution  at  a  circle 

3.  Torsion  of  a  prismatic  member 

4.  Point  load  in  an  infinite  plate 

5.  Bolt-bearing  solution 

6.  Stress  analysis  of  a  cracked,  infinite  plate 


MECHANICS  OF  FIBER  COMPOSITE  MATERIALS 


Text  Material: 


T.  A.  Cruse,  Mechanics  of  Laminated  Fiber  Composites 

(notes  in  preparation) 

J.  E.  Ashton  et  al.  Primer  on  Composite  Materials:  Analysis 
Technomic  (1969) 


Course  Abstract: 


This  course  deals  with  the  stress  and  strength  analysis  of 
two  dimensional  anisotropic  fiber  composite  structural  mater¬ 
ials.  These  materials  have  applications  in  structural  reinforce 
ments,  pressure  vessels,  and  aerospace  structures.  Typical 
materials  that  can  be  considered  include  reinforced  concrete, 
fiberglass,  and  some  of  the  new,  advanced  fiber  composites 
such  as  boron-epoxy  and  graphite-epoxy.  Major  topics  Include 
the  development  of  the  anisotropic  stiffness  matrix  for  in¬ 
plane  and  out-of-plane  loading  of  plates  and  shells,  theories 
of  strength  and  experimental  procedures,  and  stress  and  dis¬ 
placement  analysis  of  simple  plate  and  shell  structures. 

Students  will  participate  In  a  number  of  project  problems  de¬ 
signed  to  Involve  the  student  In  some  of  the  real  design  prob¬ 
lems  associated  with  composite  materials.  Existing  solution 
techniques  such  as  finite  elements:  integral  equations,  and 
optimization  computer  programs,  as  well  as  analytic  solution 
capabilities  will  be  exercised  as  appropriate.  The  student 
is  assumed  to  have  completed  the  normal  undergraduate  courses 
in  strength  of  materials  Including  some  introduction  to  the 
theory  of  elasticity. 


MECHANICS  OF  FIBER  COMPOSITE  MATERIALS 


Supplementary  Reference  Material: 


BOOKS : 

S.  A.  Ambartsumyan,  Theory  of  Anisotropic  Plates ,  Vech ramie  (1970) 

u.  E.  Ashton,  J.  M.  Whitney,  Theory  of  Laminated  -lates, 

Technomic  (1970) 

G.  S.  G.  Beveridge,  R.  S.  Schechter,  Optimization:  Theory 
and  Practice ,  McGraw-Hill  (1970) 

S.  W.  Tsai,  et  al  (Editors),  Composite  Materials  Workshop , 
Technomic  (1968) 

L.  J.  Broutman,  R.  H.  Kroci;  (Editors),  Modem  Composite 
Materials ,  Addison  Wesley  0967) 

_ _ f  Metal  Matrix  Composites ,  ASTM  STP  438  (1968) 

_ f  Interfaces  in  Composites ,  ASTM  STP  452  (1969) 

_ r  Composite  Materials:  Testing  and  Design ,  ASTM  STP 

460  (1969) 


DEPORTS : 

T.  A.  Cruse,  J.  L.  Swedlow,  Interactive  Program  in  Advanced 
Composites  Technology:  First  Annual  Report,  Report  SM-46, 
Carnegie-Mcllon  University,  Pittsburgh,  Pennsylvania  (1970) 

M.  S.  Howeth,  Design,  Materials  and  Structures,  Report  SMD-028, 
General  Dynamics,  Fort  Worth,  Texas  (1969). 


S.  W.  Tsai,  Mechanics  of  Composite  Materials ,  AFML-TR-66-199 


MECHANICS  OF  FIBER  COMPOSITE  MATERIALS 


COURSE  OUTLINE: 


I.  Review  of  Two  Dimensional  elasticity  (6  hours) 

A.  Stress  tensor 

B.  Equilibrium 

C.  Strain  Tensor 
0.  Compatibility 

II.  Linear,  anisotropic  elasticity  (5  hours) 

A.  Existence  of  the  strain  energy  density 

B.  Fourth  order  compliance,  stiffness  tensors 

C.  Transformation  equations 

1.  Specially  orthotropic 

2.  Transversely  isotropic 

3.  Isotropic 

D*.  Plane  stress  results 

III.  Mechanics  of  a  continuous  fiber  lamina  (4  hours) 

A.  Manufacturing  of  fibers,  laminae 

B.  Rules  of  mixtures 

C.  Summary  of  micromechanics  results 

D.  Lamina  mechanical  properties 

IV.  Mechanics  of  Laminates  (12  hours) 

A.  Manufacturing  of  laminates 

B.  Stiffness,  compliance  matrices;  [A],  [B],  and  [D] 

C.  Strength  theories 

1.  Static  theories:  Maximum  stress,  strain;  Distortional 
energy 

2.  Energy  tensor 

3.  Fatigue 

4.  Fracture 

V.  Structural  applications  and  projects  (12  hours) 

A.  Finite  element  solution  method 

B.  Joints  and  cutouts 

C.  Pressure  vessels 

D.  Stability,  vibrations 

E.  Limitations  on  lamination  theory 
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TWO  DIMENSIONAL  PROBLEMS  IN  THE  THEORY  OF  ANISOTROPIC  ELASTICITY 


Recommended  Textbooks: 

N.  I.  Muskhellshvlll ,  Some  Baeio  Problems  of  the 
Mathematical  Theory  of  Elasticity ,  Noordhoff  (1963) 

S.  G.  Lekhnltskli,  Theory  of  Elasticity  of  an 
Anisotropic  Elastic  Body,  Holden-Day  (1963) 


Course  Abstract: 

The  first  half  of  the  course  is  devoted  to  the  formulation 
and  solution  of  the  two  dimensional.  Isotropic  elastic 
problem  using  complex  variable  methods.  Solutions  are 
obtained  using  the  Laurent  series  expansion  for  multiply- 
connected  bodies.  The  second  half  of  the  course  Is  de¬ 
voted  to  the  analysis  of  anisotropic,  two  dimensional 
problems,  again  using  the  complex  variable  method.  Example 
problems  and  projects  are  chosen  for  their  relevancy  to 
current  engineering  problems  in  .nlsotropic  media,  such 
as  advanced  fiber  composites.  Existing  numerical  solution 
methods  such  as  finite  elements  and  Integral  equations 
are  used  and  compared  to  the  analytic  results  when  possible. 
The  course  assumes  a  knowledge  of  the  basic  theorems  of 
analysis  of  functions  of  a  complex  variable  as  well  as  the 
basic  theory  of  elasticity. 
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TWO  DIMENSIONAL  PROBLEMS  IN  THE  THEORY  OF  ANISOTROPIC  ELASTICITY 


COURSE  OUTLINE: 


I.  Review  of  complex  variable  theory  (6  hours) 

A.  Analytic  functions 

B.  Green's  *heorem 

C.  Cauchy  Integral  theorems 
0.  Series 

II.  Plane  theory  of  isotropic  elasticity  (18  hours) 

A.  Equilibrium;  stress  function 

B.  Strains;  Hooke's  law 

C.  Goursat  formula 
0.  displacements 

E.  Tractions 

F.  Kolosov  formula 

G.  Forces  on  a  contour 

H.  Single-valued  displacements,  stresses 

I.  Laurent  series  for  the  stress  functions 

J.  Infinite  region  with  a  hole 

K.  Polar  coordinate  form  of  the  equations 

L.  Mapping  functions;  curvilinear  coordinates 

M.  Transformed  field  equations 

N.  Example  solutions 

III.  Plane  theory  of  anisotropic  elasticity  (15  hours) 

A.  Hooke's  law  for  various  types  of  anisotropy 

B.  Stress  function 

C.  Characteristic  surfaces  for  the  stress  function 

D.  Roots  of  the  characteristic  equation  £.(y)  =  0 

E.  Stresses  and  displacements 

F.  Forces  on  a  contour 

G.  Infinite  region  with  a  hole 

H.  Single-valued  stresses  and  displacements 

I.  Mapping  functions 

J.  Fourier  analysis  of  the  boundary  conditions 

K.  General  expansion  form  of  the  solution 

L.  Example  solutions 
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1.7  APPENDIX  II:  TRIPREPORTS 


TRIP  REPORT  NO. 

TR-69-02 

TR-69-04 

TR- 69-09 

TR-69-10 

TR- 70-01 

TR-70-02 

TR-70-03 

TR- 70-04 

TR-70-05 

TR- 70-09 
TR-70-10 

TR-70-12a 


TITLE 


DATE 


Exploration  of  Possible  University- 
Industry  Cooperation  In  the  Area 
of  Advanced  Composite  Technology 
(T.  A.  Cruse) 

Detailed  Discussion  of  Proposed  Uni¬ 
versity-Industry  Joint  Program  In 
Advanced  Composite  Technology 
(T.  A.  Cruse) 

Advanced  Composites  Status  Review 
(T.  A.  Cruse) 

University  Team  Visit  to  Air  Force 
Materials  Laboratory 

Fuselage  Program  Review  (General 
Dynamics)  and  Discussion  of 
Project  Problems  (T.  A.  Cruse) 

Review  Meeting,  First  Edition  of 
Structural  Design  Guide  for 
Advanced  Composite  Applications, 
and  Test  Methods  (R.  D.  Blevins) 

Discussion  of  Bolt  Bearing  Testing 
Procedures  with  North  American 
Rockwell /Columbus  (J.  P.  Naszczak) 

Discussion  of  Test  Data,  Methods  with 
North  American  Rockwell/los  Angeles 
(R.  D.  Blevins) 

Team  Visit  to  Southwest  Research 
Institute 


7/14/69 


8/11-12/69 


9/30- 


69 


10/2- 
11/24/69 


l/7-9/7u 


2/11/70 


3/12/70 

3/18/70 

4/2/70 


Team  Visit  to  General  Dynamics/  4/3/70 

Fort  Worth 


Discussion  of  Consulting  Program  8/19-21/70 

with  Dr.  Frank  J.  Rizzo 
(T.  A.  Cruse) 

Project  Review  Meetings  at  General  10/4-6/70 

Dynamics/Fort  Worth  and  Air  Force 
Materials  Laboratory 
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TRIP  REPORT  SO. 

TITLE 

DATE 

TR-70-13 

Boeing/ Vertol :  Review  of  Boron 

Blade  Program  (S.  J.  Marulls; 

T.  A.  Cruse) 

10/28/70 

TR-70-14 

NASA/Langley  Field;  Interactive 

Program  in  Composites  at  CMU 
(T.  A.  Cruse,  J.  L.  Swedlow) 

12/15/70 

TR-71-01 

AFML;  GD/Ft.  Worth:  Program  Review 
and  New  Project  Proposals 
(T.  A.  Cruse) 

1/5-6/71 

TR-71-02 

GD/Ft.  Worth:  Program  Review 

Meeting  (T.  A.  Cruse) 

4/14/71 

TR-71-03 

Fifth  St.  Louis  Symposium  on  Composite 
Materials 

4/6-7/71 

12th  AIAA/ASME  Structures,  Structural 
Dynamics,  and  Materials  Conference 

4/19-21/71 

(T.  A.  Cruse,  J.  P.  Waszczak) 

TR-71-06 

Design  Guide  Review  Meeting;  NAR, 

Los  Angeles  (T.  A.  Cruse) 

5/24-26/71 

TR-71-07 

GD/Ft.  Worth;  Program  Review  Meeting 
(T.  A.  Cruse,  J.  P.  Waszczak, 

H.  J.  Konish,  Jr.) 

6/9-10/71 

TR-71-08 

Boeing/Vertol :  Review  of  CMU  Fracture 
program  (H.  J.  Konish,  Jr.) 

6/18/71 

TR-71-09 

31st  National  Applied  Mechanics  Conference  6/23-25/71 
(T.  A.  Cruse) 

TR-71-10 

GD/Ft.  Worth:  Review  of  Sumner  Project 
(J.  P.  Waszczak) 

7/7-9/71 

TR-71-11 

GD/Ft.  Worth:  Revi';.  of  Summer  Project, 
Boundary-Integral  Project 
(J.  P.  Waszczak,  T.  A.  Cruse) 

8/5/71 

TR-71-12 

GD/Ft.  Worth:  Review  of  Summer  Project, 
(J.  P.  Waszczak) 

8/5-6/71 

TR-71  13 

5th  National  Fracture  Mechanics  Symposium 
(H.  J.  Konish,  Jr.,  T.  A.  Cruse, 

J.  R.  Gsias) 

8/31-9/2/71 
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1.8  APPENDIX  III:  RESEARCH  DOCUMENTS 


REPORT  NUMBER 

TITLE 

DATE 

SM-22 

Anisotropic  Stress  Strain  Program 

Layer  Usage  Guide  (H.  J.  Konish,  Jr.) 

January  1970 

SM-23 

Project  Problems  for  Air  Force  Con¬ 
tract  F3361 5-70-C-l 1 46  (T.  A.  Cruse) 

January  1970 

SM-24 

Summary  of  the  Direct  Potential 

Method  (T.  A.  Cruse; 

January  1970 

SM-25 

Interactive  Program  in  Advanced 
Composites  Technology  (T.  A.  Cruse) 

February  1970 

SM-27 

Symmetric  Laminate  Constitutive 

Equation  Program-EMAT  Usage  Guide 
(J.  P.  Waszczak) 

February  1970 

SM-28 

Bolt  Bearing  Specimen  Co-ordinate 
Transformation  Program  -  Usage  Guide 
TRANS  (J.  P.  Waszczak) 

April  1970 

SM-29 

Certain  Aspects  of  Design  with  Ad-  April  1970 

vanced  Fibrous  Composites  (R.  D.  Blevins) 

SM-31 

Stress  Analysis  of  a  Cracked  Ad¬ 
vanced  Composite  Beam  (H.  J.  Konish, 

April  1970 

Jr.) 

SM-32 

An  Investigation  of  Fracture  in 

Advanced  Composites  (W.  H.  Banrford) 

April  1970 

SM-34 

An  Investigation  of  Stress  Concentra¬ 
tions  Induced  in  Anisotropic  Plates 
Loaded  by  Means  of  a  Single  Fastener 
Hole  (J.  P.  Waszczak) 

May  1970 

SM-38 

Integral  Equation  Methods  in  Potential 
Theory  (T.  A.  Cruse) 

August  1970 

SM-41 

Stress  Analysis  of  a  Cracked  Aniso¬ 
tropic  Beam  (H.  J.  Konish,  J.  L. 
Swedlow) 

September  1970 

SM-42 

An  Investigation  of  Stress  Concentra¬ 
tions  Induced  in  Anisotropic  Plates 
Loaded  by  Means  of  a  Single  Fastener 
Hole  (0.  P.  Waszczak,  T.  A.  Cruse) 

September  1970 

SM-45 

The  Use  of  Singular  Integral  Equations 
with  Application  to  Problems  of 
Composite  Materials  (F.  J.  Rizzo) 

October  1970 

/?EPO/?!r  NUMBER 

TITLE 

DATE 

SM-49 

Report  on  the  Relation  Between  the  Stiffness 
Matrix  and  the  Angle  of  Rotation  of  a 
Lamina  (J.  Kolter) 

November  1970 

SM-50 

Numerical  Solution  Accuracy  for  the  Infin¬ 
ite  Plate  with  a  Cutout  -  Progress 

Report  {W.  Bamford) 

December  1970 

SM-52 

Failure  Mode  and  Strength  Predictions  of 
Anisotropic  Bolt  Bearing  Specimens 
(J.  P.  Waszczak;  T.  A.  Cruse) 

September  1970 

SM-53 

A  Proposed  Experimental  Investigation  of 
Fracture  Phenomena  in  Advanced  Fiber 
Composite  Materials  (H.  J.  Konish,  Jr.) 

February  1971 

SM-63 

Loaded  Circular  Hole  in  an  Anisotropic 

Plate  (J  ?.  Waszczak) 

May  1971 

SM-64 

Stress  Analysis  of  the  Crack-Tip  Region 
in  a  Cracked  Anisotropic  Plate 
(H.  J.  Konish,  Jr.) 

May  1971 

SM-65 

Numerical  Calculation  of  the  Character¬ 
istic  Directions  For  a  Generally 
Anisotropic  Plate  -  MULTMU  Usage 

Guide  (H.  J.  Konish,  Jr.) 

June  1971 

SM-68 

Solution  to  Kelvin's  Problem  for  Planar 
Anisotropy  (W.  Bamford) 

June  1971 

SM-70 

USER'S  DOCUMENT:  Two  Dimensional 

Boundary- Integral  Equation  Program 
(T.  A.  Cruse) 
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CHAPTER  II 


FRACTURE  OF  ADVANCED  COMPOSITES 

2.1  STRESS  ANALYSIS  OF  A  CRACKED  ANISOTROPIC  BEAM 

2.1.1  Introduo tion 

The  high  specific  strength  and  specific  stiffness  of  advanced 
fiber  composite  materials  have  made  them  very  attractive  to  the  aerospace 
industry.  The  fact  that  they  are  both  anisotropic  and  inhomogeneous,  how¬ 
ever,  has  somewhat  retarded  their  use,  as  the  design  and  analysis  pro¬ 
cedures  developed  for  metais  are  not  strictly  applicable;  thus,  it  is 
necessary  to  adapt  old  procedures,  or  develop  new  ones,  which  can  deal 
with  the  more  complex  composite  materials. 

The  project  discussed  in  this  chapter  deals  with  one  such  effort. 
The  specific  problem  under  consideration  is  the  effect  of  a  crack  in  a 
unidirectional  advanced  fiber  composite  material.  Although  this  problem 
is  one  of  great  significance  in  aerospace  structures,  it  has  not  yet  been 
extensively  treated.  An  analytic  solution  has  been  derived  for  the  elastic 
stresses  and  strains  induced  by  a  crack  in  a  loaded  anisotropic  plate  [1]. 
The  solution  does  assume  material  homogeneity,  but  this  is  a  good  approxi¬ 
mation  for  advanced  fiber  composite  materials  on  a  macroscopic  scale. 
However,  relatively  little  has  been  done  to  follow  up  the  analytic  work. 

2.1.2  Review  of  Previous  Work 

The  most  extensive  investigation  of  fracture  of  compc'ites  in 
the  literature  is  that  done  by  Professor  E.  M.  Wu  of  Washington  University, 
St.  Louis.  He  considers  the  problem  of  a  central  crack,  aligned  with  the 
fibers  of  a  unidirectional  composite  material,  which  are,  in  turn,  a- 
ligned  with  the  edges  of  a  plate  subjected  to  general  edge  loadings. 


Wu  demonstrates  that  linear-elastic  fracture  mechanics  are  applicable  to  j 

this  problem  [2].  His  analysis  yields  results  of  the  form 

a  =  KjF^r  (1) 

Kj=  a  6  (2) 

where  F  is  a  function  of  the  external  loading  and  G  is  a  function  of 
specimen  geometry,  material  constants .  and  external  loading.  These  re¬ 
sults  are  similar  in  form  to  the  results  obtained  from  the  analysis 
of  an  isotropic  problem. 

Wu  verified  his  analysis  experimentally  [2,3].  His  experimental 
work,  (done  with  fiberglass  plates),  does  demonstrate  the  applicability  of 
a  linear  elastic  fracture  mechanics  analysis  to  his  particular  problem. 

It  further  shows  that  the  critical  stress  intensity  factors  Kjc  (cor¬ 
responding  to  symmetric  loading  on  the  plate)  and  KIJc  (corresponding  to 
skew-synmetric  loading  on  the  plate)  are  material  constants.  Under  com¬ 
bined  external  loading,  the  following  empirical  relationship  is  observed 
to  be  valid  at  incipient  unstable  crack  propagation: 

K,/Klc  ♦  <K„/KIIc)2  =  1  (3) 

This  result  is  not,  however,  particularly  surprising  in  view  of  [1], 
where  it  is  analytically  shown  that  any  arbitrary  two-dimensional  fracture 
problem  in  an  anisotropic  material  may  be  decomposed  into  two  independent 
problems,  one  symmetric  and  one  skew-symmetric.  Thus,  only  the  form  of 
(3)  may  be  considered  as  original;  its  existence  is  predicted  by  analysis. 

Wu  has  also  investigated  the  problem  of  an  external  loading  of 
combined  compression  and  shear  [4].  This  loading  will  lead  to  crack 
propagation  by  the  second,  or  "sliding"  mode.  Three  possible  subcases 


are  considered  analytically:  Relative  displacement  of  the  crack  surfaces, 
over  a  portion  of  the  crack  surfaces,  and  over  none  of  the  crack  surfaces. 

This  analysis  was  verified  by  an  experimental  program  carried 
out  on  fiberglass.  The  results  show  that,  for  ratios  of  compressive  load 
to  shear  load  greater  than  approximately  0.4,  failure  does  not  occur  by 
unstable  crack  propagation;  the  crack  velocity  remains  quasi-stable  until 
the  specimen  fails  from  propagation  of  the  crack  completely  through  it. 

If  the  ratio  of  compressive  load  to  shear  load  is  increased,  internal 
buckling  of  the  fibers  and  separation  of  the  fibers  from  the  matrix  is 
observed;  at  most,  the  crack  will  propagate  some  small  distance  at  an 
angle  of  45°  from  Its  initial  direction,  then  diffuse  and  die  out.  The 
specimen  buckles  thereafter  with  no  additional  crack  propagation.  Wu 
thus  concludes  that  fracture  mechanics  is  only  applicable  to  this  problem 
when  the  ratio  of  compressive  stress  to  shear  stress  is  less  than  0.4. 

The  second  subcase  of  the  analysis  gives  the  best  agreement  between 
analysis  and  experiment  when  fracture  mechanics  are  applicable.  The 
quasi-stable  crack  propagation  found  to  occur  experimentally  when  the 
ratio  of  compressive  load  to  shear  load  is  approximately  0.4  seems  to  be 
well -described  by  the  first  subcase  of  the  analysis.  The  third  subcase 
of  the  analysis  is  believed  to  be  applicable  when  the  compressive  load 
is  sufficiently  large  to  prevent  crack  extension;  however,  buckling, 
rather  than  crack  propagation,  becomes  the  dominant  mode  of  failure  be¬ 
fore  this  load  is  reached,  so  the  presence  of  the  crack  not  significant 
In  the  failure  of  the  specimen. 

Wu  notes  that  stable  crack  propagation  occurs  in  an  intermittent 
manner  in  fiberglass  [2];  he  postulates  that  this  is  caused  by  the  crack 
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'  crossing  the  reinforcing  fibers.  This  hypothesis  Is  Investigated  both 

analytically  and  experimentally  [5]. 

The  analysis  is  based  on  the  assumption  that  crack  growth  Is 
primarily  caused  by  the  component  of  tensile  stress  perpendicular  to  the 

I 

I  direction  of  crack  growth,  as  the  Intermittent  stable  crack  propagation 

I 

is  most  frequently  observed  under  skew-synmetric  loading.  It  indicates 

{ 

that  the  crack  does  not  necessarily  propagate  in  a  direction  col linear 

| 

with  itself,  but  rather  at  an  angle  where  the  combination  of  the  size  of 
a  sub-critical  flaw  and  the  maximum  tensile  stress  reaches  some  critical 
I  value,  causing  the  flaw  to  grow.  Under  skew-symnetric  loading,  the  maxi- 

I 

t 

mum  tensile  stress  Is  not  perpendicular  to  the  crack  direction,  and,  as- 

V 

sumlng  that  flaws  of  any  given  size  are  uniformly  distributed  in  the 
material,  the  crack  will  propagate  at  some  angle  to  Its  initial  direction. 

£ 

Since  the  initial  direction  of  the  crack  Is  collinear  with  the  fibers,  the 
propagating  crack  must  cross  fibers.  The  direction  of  crack  growth  is 
thus  a  function  of  the  direction  of  the  shear  loading. 

It  is  noteworthy  that  Wu  finds  the  Griffith  eneryy  criterion  to 
be  applicable  to  composite  materials  only  when  the  crack  propagates  across 

I 

fibers.  Although  Wu  offers  no  explanation  for  this  anomaly,  it  may  be 
due  to  the  fact  that,  for  this  particular  geometry,  the  crack  propagates 

only  through  resin  unless  it  crosses  fibers.  Thus,  the  crack  would  "sense" 

i 

j  a  brittle,  high-strength  material,  for  which  the  Griffith  criterion  is 

! 

applicable,  only  when  it  crosses  fibers. 

Wu's  specimen  is  also  analyzed  for  symmetric  loading  by  Bowie 
and  Freese  [6].  They  use  a  modified  mapping-boundary  collocation  technique 
to  derive  the  stress  intensity  factor  numerically.  Of  particular  interest 
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is  the  result  of  Bowie  and  Freese  that,  when  the  strength  of  the  material 
in  a  direction  transverse  to  the  crack  is  much  larger  than  the  strength 
of  the  material  collinear  with  the  crack,  the  stress  Intensity  factor  is 
not  longer  the  same  for  both  the  isotropic  and  anisotropic  cases,  as  pre¬ 
dicted  by  Sih,  Paris,  and  Irwin  [1].  However,  Bowie  and  Freese  dc  note 
that,  when  the  strength  of  the  material  in  the  direction  collinear  with 
thr  crack  is  greater  than  or  equal  to  the  strength  of  the  material  in  a 
direction  transverse  to  the  crack,  the  two  stress-intensity  factors 
agree  to  within  five  per  cent. 

2.7.3  Analytical  Study 

The  efforts  described  above  comprise  the  significant  work  now 
available  in  open  literature  on  macroscopic  analysis  of  fracture  in  aniso¬ 
tropic  materials.  Both  of  them  consider  only  cracks  which  are  aligned 
with  the  fibers  of  the  composite  material,  and  must  therefore  be  con¬ 
sidered  incomplete,  as  no  provision  has  been  made  for  cracks  with  arbi¬ 
trary  orientation  to  the  material  axes.  The  purpose  of  the  project 
described  in  this  section  is  to  investigate  the  behavior  of  a  crack  in  an 
anisotropic  material  where  the  crack  is  not,  in  general,  collinear  with 
one  of  the  material  axes  (though  these  cases  are  considered).  Information 
is  also  sought  on  the  behavior  of  the  stress-intensity  factor  as  the 
orientation  of  the  crack  with  respect  to  the  material  axes  and  the  speci¬ 
men  geometry  are  varied.  Finally,  it  is  desired  to  obtain  verification 
of  either  Bowie  and  Freese  [6],  or  Sih,  Paris,  and  Irwin  [1]  concerning 
the  differences,  if  any,  between  the  isotropic  and  anisotropic  stress 
intensity  factors. 
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In  pursuit  of  these  objectives,  a  series  of  anisotropic  three- 
point  bend  specimens  with  edge  cracks  of  different  lengths  (Fig.  1)  has 
been  studied  analytically  to  determine  the  stress  and  deformation  response 
In  the  vicinity  of  the  crack-tip.  Material  properties  were  chosen  such 
that  the  specimen  represents  uni-directional  boron/epoxy.  The  orientation 
of  the  material  axes  relative  to  the  crack-axis  Is  completely  arbitrary. 

The  analysis  was  performed  using  a  linear  elastic,  plane  stress, 
finite  element  technique.  Two  element  grids  were  used,  one  representing 
the  entire  beam  and  the  other  representing  a  small  region  of  the  beam 
surrounding  the  crack-tip.  The  latter  grid  is  used  to  provide  more  de¬ 
tailed  Information  In  the  region  of  the  crack-tip  than  can  be  obtained 
from  the  relatively  coarse  grid  of  the  entire  beam  and  still  remain  In 
the  core  of  the  computer.  Details  of  the  numerical  studies  are  contained 
In  [7]. 

Load  Is  applied  to  the  beam  by  specifying  the  transverse  displace¬ 
ment  of  the  point  on  the  upper  edge  of  the  beam  in  line  with  the  crack- 
axis.  Appropriate  nodal  displacements  from  the  grid  of  the  full  beam  are 
then  applied  to  the  grid  of  the  crack-tip  region  as  boundary  conditions. 
From  the  analysis  of  the  grid  of  the  crack-tip  region,  stresses  and  dis¬ 
placements  are  determined  as  functions  of  position. 

The  stresses  and  deformations  are  represented  in  the  form  given 
by  Slh,  Paris,  and  Irwin  [1]: 

-  Ki  p  r  _ _ n  (4) 

°x  ~  TziTr  6  *  y  1~w2  ^cosO  +  y2sinO  /cosG  +  iujsfnOJ  J 
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where  Kj  Is  the  stress  Intensity  factor  for  an  isotropic  specimen  of  the 
same  geometry  as  that  being  analyzed;  r  and  e  are  the  coordinates  shown 
In  Figure  1.  The  vl  are  the  roots  of  the  characteristic  equation 

a-j-jv4  -  2a16w3  +  (2alg  +  ag6)y2  -  2a2gy  +  a22  =  0  (?) 

where  a^  are  the  material  compliances  as  given  by 

ci =  aifj  (8> 

The  qj  are  defined  as 

qj  =  a12l’j  +  a22/yj  ‘  a26 

Using  the  equations  (4-9),  the  stress  Intensity  factor  Kj  can 
be  obtained  in  various  ways  from  both  the  stresses  and  the  displacements 
found  in  the  analyses  of  the  crack-tip  region.  It  is  hypothesized  that 
the  stress  intensity  factor  is  a  separable  function  of  the  load  on  the 
beam  and  the  specimen  geometry,  i.e., 

Kj  =  f(load)  g(gecmetry)  (10) 

Since  the  analysis  is  linear  elastic, 

f(load)  =  P/B  (11) 

The  effect  of  the  specimen  geometry  is  a  cunction  of  the  crack- 
length,  the  effects  of  finite  specimen  boundaries,  and  possibly  the  mater¬ 
ial  anisotropy.  It  is  further  hypothesized  that 

g( geometry)  =  G(a/W,a)  (12) 
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where  the  function  6  contains  the  effects  of  the  finite  boundaries  of 
the  specimen  and  any  effect  of  the  material  anisotropy.  Thus,  combining 
equations  (10-12) 

Kj  =  (P^  /B)  G  (a/W,a) 

or  (13) 

G  (a/W,a)  =  KjB/P^a 

The  function  G(a/W,a)  has  been  obtained  analytically  for  three 
values  of  a  and  five  values  of  a/W,  using  values  of  Kj  obtained  from  both 
stress  and  displacement  data.  Each  G(a/W,a)  was  then  normalized  on  the 
value  G  (0.2, a)  for  corresponding  methods  of  determining  Kj.  The  resulting 
value,  denoted  as  G  (a/W,a)  is  shown  plotted  as  function  of  a/W  in  Figure 
2.  On  the  same  graph  is  shown  a  curve  representing  la  (a/W)  for  an  iso¬ 
tropic  specimen,  as  obtained  from  [8],  The  data  points  show  satisfactory 
agreement  with  the  curve,  in  view  of  the  numerical  noise  introduced  by 
two  finite  element  grids  which  are  not  entirely  compatible.  Thus,  (a 
(a/W, a)  is  identical  with  G(a/W).  This,  in  turn,  implies  that  the 
anisotropic  stress  intensity  factor  is  the  isotropic  stress  intensity 
factor. 

Although  the  stress  intensity  factor  in  equations  (4-6)  is  the 
isotropic  stress  intensity  factor,  stress  and  deformation  are  functions 
of  material  constants.  Thus,  fracture  in  advanced  fiber  composite 
materials  cannot  be  ascribed  solely  to  ar.y  combination  of  the  stress  in¬ 
tensity  factors.  To  some  extent,  therefore,  the  applicability  of  fracture 
mechanics  to  composite  materials  is  questionable.  Exactly  what  importance 
a  crack  has  in  composite  materials,  and  what  role  the  material  properties 
play  in  describing  it,  are  questions  which  were  investigated  experimentally 
and  are  reported  in  Section  2.2. 
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Figure  1 


Thre^-polnt  bend  fracture  specimen,  with  global  (x,y  and  r,e) 
and  material  (1,2)  coordinate  systems  shewn  (insert).  The 
applied  load  P  is  modelled  as  point  load.  The  specimen 
thickness  is  denoted  by  B. 
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Figure  2:  A  plot  of  6(a/W,o)  vs.  a/W.  The  degree  of  correspondence 
between  the  discrete  points  (obtained  numerically)  and  the 
continuous  curve  (obtained  from  [8])  is  a  measure  of  the 
applicab.lity  of  an  anisotropic  continuun  analysis  [4]  to 
advanced  fiber  composite  materials. 
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2. 2  EXPERIMENTAL  INVESTIGATION  OF  FRACTURE  IN  AN  ADVANCED  FIBER  COMPOSITE 
2. 2. 1  Introduction 

Linear  elastic  fracture  mechanics  (LEFM)  is  now  accepted  as  the 
rationale  for  characterizing  crack  toughness  of  materials  that  are  osten¬ 
sibly  homogeneous  and  isotropic,  the  outstanding  examples  being  a  wide 
range  of  metallic  alloys.  The  basic  experience  that  supports  this  approach 
is  that  presence  of  a  macro  crack  dominates  the  response  of  a  structure  to 
remote  loading.  With  the  advent  of  advanced  fiber  composites,  however, 
there  arises  the  question  of  the  degree  of  homogeneity  of  the  structure 
surrounding  the  crack  that  is  necessary  for  LEFM  to  be  applicable.  In 
particular,  there  is  concern  over  whether  heterogeneity  and  anisotropy  will 
preclude  practical  use  of  LEFM  in  composites. 

Vigorous  discussion  of  this  issue  is  important  and  widespread, 
but  the  interchanges  so  far  have  tended  to  be  theoretical  and  even  specu¬ 
lative.  In  an  effort  to  supply  some  physically  based  information,  a  pilot 
series  of  experiments  has  been  performed,  to  answer  two  specific  questions: 

1.  If  a  cracked,  composite  specimen  is  loaded  to  failure, 

is  the  path  of  crack  prolongation  determined  by  the  geometry 
of  the  initial  crack  and  the  loading,  or  by  material 
orientation? 

2.  Can  LEFM,  suitably  modified  to  account  for  material 
anisotropy,  be  usefully  applied  to  composites? 

The  data  now  in  hand,  although  limited,  indicates  that  a  crack  in  a 
composite  is  at  least  influential  in  determining  failure  patterns  and,  in 
many  cases,  the  crack  is  dominant;  furthermore  that  LEFM  provides  useful 
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procedures  for  evaluating  crack  toughness  of  composites. 

This  section  gives  a  brief  review  of  the  test  procedures,  methods 
of  data  reduction,  and  experimental  results.  Observations  made  during  the 
course  of  the  tests  are  reported,  and  failure  surfaces  are  shown.  Analyti¬ 
cal  work  stimulated  by  these  results  is  underway  and  will  be  reported 
subsequently. 

2.2.2  Test  Procedures ;  Program 

It  was  obvious  from  the  objective  of  the  test  program  that  the 
test  procedures  should  follow  those  developed  within  the  framework  of 
conventional  fracture  mechanics.  There  is,  in  fact,  a  wealth  of  literature 
on  this  subject  including  an  ASTM  Tentative  Method  [1]  and  extensive 
interpretation  of  it  (see,  e.g.,  [2,3]).  Departures  from  the  specifica¬ 
tions  in  [1]  were  minimal  and  were  dictated  either  by  the  special  nature 
of  the  material  under  test  or  by  simple  practicality. 

The  three-point  bend  specimen  prescribed  in  [1]  was  chosen  largely 
to  bypass  problems  associated  with  gripping  the  test  piece.  (See  Figure  1.) 
In  the  extensive  data  base  that  now  exists  for  metals  testing,  results  for 
this  configuration  compare  well  to  those  for  other  geometries  so  that, 
among  other  matters,  there  was  no  reason  to  expect  that  the  bearinq  load 
opposite  the  crack  front  should  influence  unduly  the  processes  of  crack 
prolongation.  In  fact,  the  data  reduction  scheme  in  [1]  accounts  for  such 
details  of  specimen  geometry  and  load  arrangement. 

The  specimen  proportions  shown  in  Figure  1  follow  the  recommenda¬ 
tions  in  [1]  except  that  the  crack  front  was  not  sharpened  under  fatigue 
loading.  Instead,  the  notch  was  produced  by  a  sawcut  followed  by  a  final 
lengthening  and  snarpening  using  an  ultrasonic  cutter. 


35 


As  shown  in  Figure  2,  each  specimen  was  centered  on  two  parallel 

rollers  (1  in  dia)  whose  centerlines  were  4  in  apart.  A  third  parallel 

roller  was  then  located  directly  above  the  crack,  and  the  specimen  was 

loaded  vertically  downward.  Testing  was  performed  in  an  Instron  machine 

_2 

of  10,000  lb  capacity,  and  cross-head  motion  was  set  at  10  in/min  to 
minimize  dynamic  effects.  Load  and  cross-head  motion  were  monitored  during 
each  test  and  then  cross-plotted  to  give  the  basic  data  for  later  reduction. 
While  the  requirement  of  [1]  is  to  record  crack-mouth  opening  by  means  of 
a  special  clip  gauge,  both  the  basic  linearity  of  material  response  and 
the  rigidity  of  the  test  machine,  relative  to  the  specimen,  seemed  to  make 
this  degree  of  fidelity  to  [1]  unnecessary  for  the  pilot  test  series. 

The  program  involved  twenty- three  specimens,  thus  allowing  for 
two  reproducibility  tests,  and  for  the  testing  of  both  uni-  and  multi¬ 
directional  laminates  having  a  range  of  starter  crack  lengths.  The 
material  used  was  a  NARMC0  graphite-epoxy  with  Morganite  II  fibers  in 
5206  resin. 


Reproducibility  was  evaluated  by  testing  two  sets  of  five  speci¬ 
mens,  each  set  of  the  same  lay-up  and  geometry.  The  first  set  was  a 


uni-directional  laminate  (a  -  0°)  and  had  an  initial  crack  length  of  0.* 


in.  The  second  set  was  multi -directional  (a  =  (0°/±45°/90°)s)  and  had 
the  same  starter  crack  length.  Single  tests  were  run  for  a  =  0°,  45°,  93°; 


(±45°)s;  and  (0°/±45o/90°)s.  Starter  crack  lengths  were  0.2,  0.4,  and  0.6 
in,  the  shortest  of  which  was  loss  than  the  requirements  in  [1],  Such 
specimens  were  included  to  permit  evidence  of  material  -iominance  to 
develop. 
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2.2.3  Data  Reduction ;  Results 

A  typical  load-cross-head  displacement  trace  is  reproduced  in 
Figure  3.  There  is  an  initial  region  of  increasing  slope  during  which 
slack  in  the  load  train  is  taken  up,  and  bearing  surfaces  under  the  loading 
rollers  develop.  This  is  followed  by  a  linear  region  in  which  the  specimen 
deforms  elastically.  A  third  region  of  decreasing  slope  then  begins  as  a 
result  both  of  nonlinear  load-displacement  behavior  and  of  damage  initiation. 
Finally  the  load  peaks  and  falls  off  as  the  test  piece  breaks  in  two. 

In  order  to  differentiate  the  nonlinear  effects  from  those 
ascribable  to  damage,  the  Tentative  Method  prescribes  the  following  data 
reduction  scheme.1  The  slope  Mq  of  the  linear  portion  of  the  curve  is 
identified,  and  a  line  of  slope  5%  less  than  Mq  is  drawn  as  shown  in 
Figure  3.  This  line  intersects  the  curve  at  a  load  termed  P$.  If  P<-  is 
the  greatest  load  withstood  by  the  specimen  to  that  point  in  the  test,  P<j 
is  set  equal  to  Pq.  If  any  load  maximum  precedes  P^,  then  Pq  is  equated 
to  that  maximum  value.  In  either  case,  the  experience  in  metals  testing 
has  shown  Pq  to  correspond  reasonably  well  to  the  point  of  failure  initi¬ 
ation.  In  the  absence  of  a  suitable  data  base  for  composites,  this  pro¬ 
cedure  was  used  to  find  Pq;  the  data  obtained  is  thus  surely  consistent 
and  probably  conservative.  Together  with  specimen  geometry,  Pq  is  then 
used  to  compute  Kq,  the  critical  stress  intensity  or  candidate  fracture 

]It  should  be  borne  in  mind  that  the  present  discussion  is  but  an  abstract 
of  a  most  explicitly  defined  procedure;  the  interested  reader  is  urged 
to  consult  [1]  for  complete  details. 
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toughness.  See  [2,3]. 

For  each  laminate,  the  Kg  values  were  averaged  to  give  Kg  which, 
in  turn,  was  used  to  find  a  critical  strain  energy  release  rate  Gg  —  see 
[3,4].  The  results  are  shown  in  Table  I.  Also  of  interest  are  the 
failure  surfaces,  depicted  in  Figures  4-8 ;  a  specimen  that  did  not  part 
fully  is  shown  in  Figure  9. 

2.2.4  Discussion 

At  the  outset,  two  questions  were  posed  regarding  the  utility  of 
LEFM  in  characterizing  fracture  of  composites.  The  first  concerns  paths 
of  crack  prolongation;  the  answer  may  be  inferred  from  inspection  of  the 
failure  surface.  The  second  involves  use  of  LEFM  as  a  data  reduction 
scheme;  the  answer  to  this  question  comes  from  physical  measurements. 

The  appearance  of  the  failure  surfaces  suggests  that,  in  the 
main,  the  crack  and  loading  dominate  fracture.  In  Figure  4  (specimens  for 
which  a  =  0°),  the  path  of  crack  growth  is  observed  to  be  roughly  coplanar 
with  the  starter  crack.  Note  that  in  the  case  of  the  longest  crack 
(a  =  0.6  in),  where  a  longitudinal  secondary  crack  formed,  the  path  is 
generally  forward.  Indeed,  the  crack  seems  to  have  made  a  series  of 
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It  is  not  surprising,  on  the  other  hand,  to  see  that,  in  the 
a  =  45°  specimens,  the  crack  grew  along  a  plane  containing  no  fibers. 

This  is  clear  in  Figure  5  and,  although  fracture  occurred  as  the  result 


In  metals  testing,  certain  additional  steps  are  taken  to  establish  the 
validity  of  an  individual  test  result.  Since  these  steps  necessitate 
use  of  the  yield  stress,  they  cannot  be  followed  in  this  work.  Thus  only 
candidate  values  of  fracture  toughness,  or  KQ,  are  reported.  The  data 
cannot  be  presumed  to  give  K.  for  these  materials  because  compliance 
with  the  strict  requirements^  [1]  are  definitionally  impossible. 


38 


of  crack  propagation  (in  the  matrix),  the  mode  is  a  mixture  of  opening 
and  sliding  [3].  More  sophisticated  instrumentation  would  have  permitted 
articulation  of  the  relative  presence  of  each  mode,  but  such  instrumenta¬ 
tion  was  not  used  in  this  program. 

Forward  crack  growth  is  evident  for  the  a  =  90°  specimens  as 
depicted  in  Figure  6.  Growth  again  was  along  a  plane  containing  no  fibers 
which,  in  this  case,  is  coplanar  with  the  starter  crack. 

During  testing  the  uni -directional  specimens  described  above 
emitted  popping  noises  prior  to  failure.  Because  the  fracture  process 
also  involved  matrix  breaking  of  one  sort  or  another,  the  two  phenomena 
are  believed  to  be  related.  Even  in  the  a  =  0°  specimens,  the  crack  ap¬ 
pears  at  the  outset  to  have  operated  on  virtuall;'  independent  fiber  bundles 
as  they  pulled  out  from  the  matrix.  The  resulting  failure  surfaces  are 
very  rough  for  the  early  stages  of  growth  but  then  become  more  nearly 
uniform.  The  noise  levels  for  the  remaining  specimens  were  much  lower, 
and  their  failure  surfaces  are  less  suggestive  of  matrix  cracking. 

Figure  7  is  instructive  in  that  it  shows  for  the  a  =  (±45°)s 
test  pieces  an  increasing  crack  dominances  as  the  starter  crack  is  made 
longer.  For  a  =  0.2  in,  the  crack  path  almost  inmediately  turns  45°  from 
its  initial  orientation,  there  being  but  a  slight  indication  of  forward 
growth.  A  greater  tendency  toward  coplanar  growth  is  apparent  when  a  =  0.4 
in,  and  crack  dominance  is  manifest  when  a  =  0.6  in.  Crack  growth  is  not 
possible  on  a  plane  containing  no  fibers  —  there  being  none  by  virtue  of 
the  lay-up  -  and  some  zig-zagging  is  apparent.  This  group  of  specimens 
thus  shows  a  transition  from  some  material  dominance  where  the  starter 
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crack  is  shorter  than  required  by  the  Tentative  Method  to  a  fracture 
pattern  fully  dominated  by  the  starter  crack,  as  the  length  of  the  starter 
crack  occurs. 


Crack  dominance  is  also  clear  in  Figure  8,  which  shows  failure 
surfaces  for  o  =  (0°/±45°/90°)s.  In  these  specimens,  the  crack  moved  in 
Its  own  plane  but  apparently  grew  further  in  the  interior  of  the  test 
piece  than  on  its  surface.  An  indication  of  this  behavior,  not  uncommon 
in  metals  testing,  is  shown  in  Figure  9. 

The  use  of  Kq  to  characterize  behavior  oi"  these  specimens  appears, 

on  the  whole,  to  be  warranted.  The  reproducibility  tests  on  the  a  =  0° 

3 

specimens  and  the  a  =  (0°/±45°/90°)s  specimens  were  satisfactory.  Load- 
displacement  traces  are  shown  in  Figures  10  and  11,  and  the  average  Kq 
values  found  are 

o*0°  •.  Kq  *  28.8  x  103  lb/in2/in 

a  =  (0°/±45°/90°)s  :  Kq  =  21.7  x  103  lb/1n2/in 
The  scatter  is  not  unlike  that  found  in  metals  testing.  For  three 
laminates,  the  data  are  fairly  consistent  with  values  obtained  independ¬ 
ently  by  Hal  pin  [5]  (25-28  x  103  lb/in2/in,  a  =  (0°/±45o/90°)  )  and  by 
Weiss  [6]  (31  x  103  lb/in2/in,  a  =  0°;  19  x  103  lb/in2/in,  a  =  (±45°)J 
using  other  specimen  geometries  (shape  and  thickness)  and  load  arrangements. 

Inspection  of  Table  I  will  show  further  that  the  Kq  values  for 
various  starter  crack  sizes  are  within  a  reasonable  range  of  the  average 
Kq  for  each  laminate.  It  should  also  be  noted  that  the  majority  of  largest 
deviations  occur  for  subsize  starter  cracks,  and  none  of  these  is  serious. 

One  exception  occurred  for  the  a  =  0°  specimen  set;  because  it  was  the 
first  specimen  of  the  entire  series  tested,  it  is  presumably  due  to 
lack  of  experience  with  the  test  procedure,  rather  than  material  variation. 
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2.2.5  Conclusions 


This  pilot  test  series  has  been  successful,  for  it  has  answered 
the  questions  posed  at  the  outset.  The  failure  mechanism  of  the  specimen 
tested  is  crack  dominated  in  most  cases,  and  the  procedures  of  LEFM  can 
be  applied  even  where  the  overt  failure  mechanism  is  not  so  obviously 
dominated  by  the  starter  crack. 

There  remains,  however,  a  variety  of  questions  about  cracks  in 
an  ao'anced  fiber  composite  material.  Some  concern  the  effects  of  speci¬ 
men  geometry  and  load  arrangement,  and  can  be  answered  only  by  furthe' 
testing.  Such  work  is  needed,  first,  to  define  and  delineate  more  fully 
the  respective  influence  of  cracks  and  material.  Further,  the  entire 
matter  of  fracture  in  composites  needs  for  its  resolution  an  extensive 
data  base  similar  to  that  which  has  evolved  for  metals.  The  building  of 
this  kind  of  experience  is  important  not  only  to  determine  what  constitutes 
meaningful  laboratory  work,  but  also  to  provide  guidance  in  treating 
service  situations.  Experimentally  determined  Kg  values  for  given 
laminates  might  also  be  relat  to  the  properties  of  individual  laminae 
within  other  laminates.  Ultimately,  the  designer  should  be  in  a  position 
to  use  fracture  toughness  as  he  would  other  material  properties. 

It  would  now  appear  that  efforts  to  address  these  questions  are 
warranted,  for  the  present  test  series  indicates  that,  when  suitably 
modified  to  account  for  anisotropy,  linear  elastic  fracture  mechanics  may 
usefully  be  applied  to  advanced  fiber  composite  materials. 
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This  value  omitted  when  calculating  Kg. 

No  Gn  available  because  the  crack  propagated  In  a  mixed  mode,  wh.ch  could  not  be  directly  uncoupled. 
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Figure  1 


PMTs 
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:  Three-point  bend  specimen  geometry,  with  crack  shape  shown  in 
inserts,  both  schematic  (left)  and  actual  (right).  Fiber 
direction  given  by  a,  crack  length  by  a.  Specimen  thickness 
0.5  in  (nom);  all  dimensions  given  in  inches. 
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Figure  5:  Failure  surfaces  for  a  =  45°  specimens  of  three  starter  crack 


Figure  7:  Failure  surfaces  for  a  *  (±45°)s  specimens  of  three  starter 
crack  lengths  (a  *  0.6,  0.4,  0.2  in). 
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Figure  8:  Failure  surfaces  for  a  =  {0°/±45°/90°)s  specimens  of  two 
starter  crack  lengths  (a  =  0.6,  0.4  in). 


Failed  but  unbroken  specimen  (a  =  (0°/±45°/90°)s ,  a  =  0.2  in). 


Figure  9: 
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Figure  11 


5  10  15  20  25  30  35 

HEAD  DISPLACEMENT,  IN  X  I0’3 

Traces  of  load  vs.  cross-head  displacement  for  five  specimens 
used  in  reproducibility  tests  for  a  multi-directional 
laminate  (a  =  (0°/±45°/90°)s,  a  =  0.4  in). 
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CHAPTER  III 

STRENGTH  OF  MECHANICALLY  FASTENED  JOINTS 

3. J  AN  INVESTIGATION  OF  STRESS  CONCENTRATIONS  INDUCED  IN  COMPOSITE 
BOLT  BEARING  SPECIMENS 

2.1.1  Introduction 

This  study  is  concerned  with  materials  which  consist  of  parallel, 
high  strength  fibers  supported  in  a  relatively  ductile  matrix  material. 

The  fibers  act  as  load  carriers  while  the  matrix  serves  principally  as  a 
load  transfer  medium.  In  particular,  it  is  concerned  with  advanced  fibers, 
such  as  boron  or  graphite,  in  an  epoxy  matrix. 

Because  of  their  superior  specific  strength  and  specific  stiff¬ 
ness,  advanced  fiber  composite  materials  have  a  vast  potential  in  the  aero¬ 
space  industry.  Lamina,  which  are  single  layers  of  parallel  fibers  sur¬ 
rounded  by  tho  matrix  material,  are  sta  fced  at  various  orientations  relative 
to  one  another  to  form  a  laminate.  This  procedure  enables  the  designer  to 
achieve  desired  strength  and  stiffness  properties  and  to  increase  the 
structural  efficiency  of  a  given  amount  of  material. 

The  strength  and  stiffness  properties,  however,  are  highly 
directional;  panels  fabricated  out  of  layers  of  unidirectional  composite 
tape  are  anisotropic.  The  designer  therefore  has  the  difficulty  of  includ¬ 
ing  the  effects  of  this  anisotropy  in  his  calculations. 

One  particular  problem  area  in  a  structure  made  of  composite 
materials  is  the  bolted  joint.  The  bolted  joint  in  a  composite  material 
has  a  significantly  lower  efficiency  than  the  same  joint  in  metals. 
Furthermore,  the  composite  join,  may  fail  in  unique  modes  not  found  in 
metal  joints. 
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This  study,  therefore,  investigates  the  stress  concentrations 
induced  in  anisotropic  plates  loaded  by  means  of  a  single  fastener  hole. 

The  study  is  an  attempt  to  further  understand  the  failure  characteristics 
of  such  boKed  joints.  The  development  of  a  prediction  capability  for 
both  the  failure  mode  and  ultimate  load  is  the  major  goal  of  the  early 
part  of  this  work.  Such  a  capability  would  allow  synthesis  rather  than 
analysis  to  be  used  in  the  future  design  of  fastener  joints.  An  implied 
goal  in  this  study  is  an  evaluation  of  the  three  proposed  anisotropic 
failure  criterion;  maximum  stress,  maximum  strain,  and  distortional 
energy. 

3. 1. 2  Analysis  Method 

A  constant  strain,  finite  element  computer  program  using  tri¬ 
angular  elements  was  modified  to  handle  anisotropic  composite  materials 
using  lamination  theory  as  presented  in  [1].  The  experimental  work  done 
on  bolt  bearing  specimens,  from  which  this  study  draws  heavily,  only  con¬ 
sidered  cross-plied  laminates  which  were  mid-plane  symmetric.  As  a  result, 
this  numerical  study  is  also  limited  to  this  class  of  laminates.  It  is 
important  to  remember  that  the  use  of  lamination  theory  ignores  inter¬ 
laminar  shear;  consequently,  it  is  expected  that  the  degree  of  error  in 
the  results  will  vary  with  specimen  anisotropy. 

The  design  of  a  finite  element  grid  representation  to  simulate 
the  bolt  bearing  test  specimen  was  subject  to  two  major  considerations 
First,  the  grid  had  to  be  sufficiently  detailed  around  the  bolt  hole  to 
pick  up  the  large  stress  gradients  which  are  induced  in  this  area. 

Secondly,  the  number  of  elements  and  nodes  was  restricted  by  the  storage 
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capacity  of  tne  computer.  Taking  advantage  of  the  two  lines  of  specimen 
symmetry  shown  in  Figure  1  only  one- fourth  of  the  specimen  was  included 
in  the  finite  element  simulation.  Figure  2  shows  a  computer  plot  of  the 
specimen  section  for  e/d  *  5.0,  s/d  =  10.0,  and  £/d  =  20.0.  The  grid 
representation  used  contains  480  elements  and  279  nodes.  The  conditions 
of  specimen  symmetry  are  met  by  forcing  the  x-displacement  of  the  vertical 
line  of  symmetry  and  the  y-displacement  of  the  horizontal  line  of  sym¬ 
metry  to  be  zero  in  each  computer  run.  A  computer  subroutine  was  also 
developed  which  transforms  the  co-ordinates  of  the  grid  shown  in  Figure  2 
to  any  desired  spe  .men  geometry,  i.e.,  e/d,  s/d,  £/d. 

To  check  whether  or  not  the  grid  was  sufficiently  detailed  around 
the  hole  an  isotropic  test  case  and  several  anisotropic  test  cases  were 
run.  A  uniform  tension  stress  was  applied  to  the  ends  of  each  sp  imen. 
Comparison  with  the  isotropic  results  presented  in  [2]  (See  Figures  3a  and 
3b)  and  the  anisotropic  results  of  [3]  indicated  that  further  refinement 
of  the  finite  element  mesh  around  the  hole  was  not  necessary.  The  observa¬ 
tion  that  the  computed  finite  element  values  of  stress  are  higher  than  the 
exact  values  agrer >  well  wi*h  the  results  illustrated  in  [4]. 

A  cosine  distribution  of  normal  stress  acting  over  the  upper  half 
of  the  hole  surface  was  usea  to  simulate  the  resulting  stress  distribution 
caused  by  the  bolt.  The  interaction  was,  therefore,  assumed  to  be  fric¬ 
tionless.  Bickley  [5]  shows  this  to  be  an  excellant  approximation  for 
isotropic  bolt  bearing  specimens.  A  finite  element  analysis  of  the  bolt- 
specimen  interaction  in  certain  composite  laminates  was  performed  at 
General  Dynamics  [6].  The  cosine  distribution  of  normal  stress  was  again 
shown  to  be  a  realistic  approximation  of  the  interaction  stresses. 


Further  confidence  was  gained  in  both  the  cosine  distribution  anu 
the  grid  mesh  by  running  an  isotropic  bolt  bearing  test  problem  and  ob¬ 
serving  the  qualitative  agreement  of  the  computed  stress  field  around  the 
hole  surface  (See  Figure  4)  with  work  by  Coker  and  Filon  [7].  The  speci¬ 
men  used  in  their  study  had  significantly  larger  values  of  e/d  and  s/d 
and  thus  a  quantitative  comparison  was  not  possible. 

Finally,  two  other  normal  distributions  of  stress,  which  were 
significantly  different  from  the  cosine  distribution  (See  Figure  5),  were 
used  as  the  bolt-specimen  interface  stress  boundary  condition  for  one  of 
the  composite  material  specimen  runs. 

The  net  force  in  the  load  direction  in  each  case  was  equivalent. 

It  was  observed  that  significant  variance  about  the  cosine  distribution 
resulted  in  insignificant  alterations  of  the  calculated  stress  fields  for 
the  specimen  considered. 

3.1.3  Strength  and  Failure  Mode  Predictions 

The  selection  of  specimen  geometries  for  this  investigation  was 
made  from  data  which  has  been  published  by  General  Dynamics  [8,9]  and 
Gruirman  Aerospace  [10].  Included  were  two  net-tension  failure  specimens, 
two  shear-out  failure  specimens,  one  bearing  failure  specimen  and  one 
specimen  which  exhibited  failures  in  a  transition  region  between  a  net 
tension  and  combination  failure  mode.  See  Figure  6  for  illustrations  of 
these  various  failure  modes. 

Performing  a  strength  analysis  on  a  laminated  composite  material 
may  be  based  on  the  strengths  of  its  individual  lamina.  The  strength  of 
a  single  orthotropic  lamina  can,  in  theory,  first  be  determined  experiment¬ 
ally,  producing  an  ultimate  strength  envelope  *or  that  material.  This 


three  dimensional  surface  (in  terms  of  principal  lamina  stresses)  could 
then  be  used  to  analytically  predict  the  ultimate  strength  of  the  total 
laminate.  The  state-of-the-art  has  yet  to  reach  this  level  of  sophisti¬ 
cation.  The  present  three  dimensional  ultimate  strength  envelope  is  con¬ 
structed  using  only  five  points  on  the  stress  axes  due  to  the,  as  yet, 
unsolved  problems  encountered  in  off-axis  testing. 

The  Hill  failure  criterion  is  a  widely  accepted  representation  of 
this  three  dimensioral  envelope;  it  has  been  found  in  this  study  to  be 
the  only  reliable  means  of  predicting  bolt  bearing  specimen  failure  modes. 
As  shown  in  [11]  lamina  failure  is  predicted  to  occur  when  the  following 
set  of  principal  stress  ratios  (normalized  on  their  respective  ultimate 
stresses)  add  to  a  number,  DIST,  greater  than  or  equal  to  one. 
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Figures  7  through  lO  are  plo*c  o'  DIST  for  typical  net  tension,  shear-out, 
bearing,  and  combination  failur.  modes  respectively J  An  initial  applica¬ 
tion  of  the  experimental  failure  load  was  used  as  the  applied  load  for 
each  computer  run.  The  resulting  contour  plots  were  sufficient  to  predict 
the  failure  modes  in  all  but  the  shear-out  cases.  For  these  specimens  it 


was  sometimes  necessary  to  consider  the  ratios  of  lamina  principal  stresses 
to  their  respective  ultimate  stresses  to  differentiate  between  a  plug  type 
shear-out  mode  and  a  bending,  tear-out  mode. 


^Figures  7a  through  7d  represent  DIST  contour  plots  of  four  laminae  which 
compose  a  net  tension  failure  specimen.  A  single  plot  of  the  major  load 
carrying  lamina  for  each  of  the  other  three  failure  modes  is  included  to 
illustrate  the  contour  patterns  for  these  various  modes. 
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Prediction  of  failure  load  was  also  made  on  the  basis  of  the 
Hill  criterion.  The  values  of  GIST  in  the  first  row  of  circumferential 
elements  around  the  hole  were  considered  for  each  lamina.  A  successive 
failure  analysis  similar  to  that  discussed  in  [12]  was  used  to  predict 
ultimate  load.  As  soon  as  an  element  in  any  given  lamina  achieved  a  value 
of  DIST  equal  to  1.0  that  lamina  was  assumed  to  have  failed  and  was  locally 
removed  from  the  laminate.  The  load  was  then  redistributed  among  the  re¬ 
maining  laminae  and  all  values  of  DIST  were  recalculated.  If  all  recalcu¬ 
lated  values  of  DIST  were  less  than  1.0  more  load  was  applied  until  another 
lamina  reached  failure.  This  process  was  repeated  until  total  laminate 
failure  occurred. 

The  predictions  of  failure  load  based  on  equation  (1)  were  always 
conservative.  The  degree  of  conservatism  varied  with  failure  mode,  but 
more  importantly  it  appeared  to  be  a  function  of  specimen  anisotropy.  To 
date  only  0°/90o/±45°  specimens  have  been  considered.  The  predicted 
failure  loads  for  the  net  tension  specimens  improve  greatly  as  the  percen¬ 
tage  of  ±45°  lamina  decreases  (See  Table  1).  For  example,  for  a  100% 

(±45°)  laminate  the  predicted  failure  load  is  about  one-half  the  experimen¬ 
tal  failure  load.  For  a  (±45*790°)  laminate  which  contains  62,5%  (+45°) 
lamina  the  predicted  failure  load  is  about  nine-tenths  the  experimental 
failure  load.  This  same  type  of  behavior  was  reported  by  Gruiman  Aerospace 
[13]  in  a  study  they  performed  on  laminate  tension  data. 

The  Hill  criterion  was  the  only  criterion  of  the  three  which  v/as 
conservative  in  predicting  failure  load  for  each  specimen  investigated. 

Both  the  maximum  strain  failure  criterion  and  the  maximum  stress  failure 
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criterion  overpredicted  at  least  one  specimen  ultimate  load.  That  is, 
even  when  the  experimentally  determined  failure  load  was  applied  the  ratio 
of  principal  strains  (or  stresses)  to  their  respective  ultimate  strains 
(or  stresses)  did  not  exceed  1.0  as  is  required  by  these  two  criterion 
respectively. 

Investigation  of  experimentally  failed  specimens  exhibit  excellant 
agreement  with  predicted  failure  behavior.  For  example,  specimens  which 
failed  according  to  a  slug  type  shear-out  inode  exhibited  relatively  smooth, 
clear  fracture  surfaces.  The  high  values  of  DIST  for  the  shear-out 
failure  mode  pictured  in  Tigure  8  are  a  result  of  very  high  principal 
shear  stress  ratios  in  these  regions,  which  wuulc  lend  to  rather  smooth 
shear  fracture  surfaces.  On  the  other  hand,  specimens  which  Failed  by  a 
bending,  tear-out  failure  mode  (which  is  also  considered  a  shear-out 
failure  mode  by  some  investigators)  exhibited  a  very  coarse,  jagged  frac¬ 
ture  surface.  This  behavior  is  again  expected  from  the  computed  stress 
ratios.  Along  lines  at  ±45°  in  a  (0°/90°/±45°)  specimen,  where  the 
values  of  DICT  are  high,  the  largest  stress  ratios  act  in  the  first 
principal  direction.  These  are  the  stresses  which  are  trying  to  break 
fibers  in  tension.  As  a  result,  as  the  triangular  section  is  being  torn 
awa>  from  the  specimen ,  fibers  along  these  failure  lines  at  ±45°  are  be¬ 
ing  broken  in  tension;  resulting  in  a  very  coarse,  jagged  fracture  surface. 

Another  interesting  feature  of  the  experimentally  failed  speci¬ 
mens  was  the  presence  of  a  highly  located  region  of  laminate  destruction 
at  the  bolt-specimen  interface.  It  was  observed  that  a  bearing  failure  of 
variable  magnitude  had  occurred  in  conjunction  with  almost  every  other 
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type  of  experimental  failure  mode.  This  behavior  was  again  predictable 
as  is  shown  in  Figures  7c,  7d,  8,  9  and  10. 

3. 1. 4  Future  Work 

Three  important  areas  in  this  analysis  where  simplifications  have 
been  made  will  be  investigated  in  the  future. 

1)  The  effects  of  interlaminar  shear  on  the  stress  field 
near  the  hole. 

2)  The  significant  variation  in  material  properties  and 
ultimate  allowables  reported  in  the  literature. 

3)  The  non-linear  stress-strain  response  of  the  composite 
materials. 

The  need  for  reliable  off-axis  failure  data  is  also  critical  to  the  com¬ 
plete  understanding  of  the  failure  of  a  composite  structure  under  compli¬ 
cated  loading.  It  is  felt  that  continued  investigation  of  the  simple 
bolt  bearing  problem  will  yield  further  clues  as  to  the  mechanisms  of 
failure  due  to  stress  concentrations. 

It  was  also  felt  at  the  completion  of  this  project  that  a  similar 
failure  analysis  could  be  performed  on  more  complex  mechanically  fastened 
joints  made  of  composite  materials.  Such  an  investigation  has  been 
performed  by  this  investigator  and  is  reported  in  the  next  section. 
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FIGURE  1 :  BOLT  BEARING  TEST  SPECIMEN 
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FIGURE  2:  BOLT  BEARING  GRID  REPRESENTATION  FOR  E/D-5.0,  S/D-10.0  &  L/D-20.0 


I - 1 - -  J - 1 - 1 _ I  I  I 

.1  0.2  0.3  0.4  0.5  0.6  0.7  0.8  I 

Y  COORDINATE  (ALONG  THE  LINE  X-0) 
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FIGURE  3b:  ISOTROPIC  BOLT  BEARING  VERIFICATION:  vs  X 
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FIGURE  5:  VARIATIONS  ABOUT  THE  COSINE  DISTRIBUTION  OF  NORMAL  STRESS 
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3.2  TOWARD  A  DESIGN  PROCEDURE  FOR  MECHANICALLY  FASTENED  JOINTS 
MADE  OF  COMPOSITE  MATERIALS 

3.2.1  Introduction 

Currently  much  emphasis  is  being  directed  toward  replacing 
metal  components  in  weight  sensitive  structures,  such  as  aircraft, 
with  composite  materials,  due  to  their  superior  specific  strength 
and  specific  stiffness  properties.  The  potential  weight  savings  which 
could  result  from  such  practices,  however,  have  not,  as  yet,  been 
realized. 

Significant  weight  savings  can  be  achieved  throughout 

the  bulk  of  a  replacement  component  by  tailoring  the  composite 

material  to  efficiently  carry  the  loads  which  are  known  to  occur  in 

the  existing  metal  component.  The  weight  savings  which  result, 

2 

however,  are  usually  eliminated  due  to  the  inefficient  joint  designs 
which  are  proposed  by  the  designer  to  fasten  the  replacement  component 
to  the  remainder  of  the  existing  structure.  The  measure  of  efficiency 
used  here  is  simply  load  carried  per  pound  of  material.  Thus,  if  a 
given  load  is  to  be  carried  by  a  structural  member,  the  load  carrying 
efficiency  of  that  member  increases  as  its  weight  is  decreased. 

In  the  design  of  metal  joints  only  three  failure  modes 
need  be  considered;  net  tension,  shear-out,  and  bearing.  For  a  given 
metal  the  values  of  FTU,  and  FgRU  can  be  experimentally  determined 
and  used  to  specify  the  joint  parameters  S,  E,  and  t  respectively, 
given  the  bolt  diameter.  Thus,  the  design  of  metal  joints  is  based 
on  a  very  limited  amount  of  experimental  data. 


The  term  joint  will  imply  a  mechanically  fastened  joint  throughout 
the  report. 
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Consider  the  compli cations  which  would  arise  If  a  similar 
empirical  design  procedure. were  used  for  joints  made  of  composite 
materials.  First  of  all,  several  additional  failure  modes  are  ex¬ 
hibited  by  composite  joints  which  do  not  occur  in  metal  joints,  due 
to  the  anisotropy  of  composite  materials.  Thus,  for  a  given  laminate 
the  amount  of  data  required  for  design  purposes  would  be  about 
doubled.  The  major  problem,  however,  is  that  the  feasibility  of 
obtaining  effective  stress  allowables  which  can  be  related  to  geometric 
parameters  for  splitting,  shear-out,  or  bending  tear-out  failure  inodes 
in  composite  materials  has  yet  to  be  determined. 

Secondly,  consider  the  problems  associated  with  the 
selection  of  joint  lamination.  The  designer  is  using  a  material 
which  may  be  tailored  to  satisfy  certain  design  constraints  which 
are  application  dependent.  The  number  of  possible  lay  up  patterns 
which  could  be  considered  during  a  single  design  are  Innumerable. 

Thus,  the  amount  of  data  acquisition  which  would  be  necessary  to 
support  an  empirical  design  procedure  in  composite  joints  Is  prohibi¬ 
tive. 

As  a  result,  the  designer  is  presently  forced  to  select 
a  laminate  for  which  some  dita  does  exist.  Since  laminate  effective 
stresses  for  the  various  failure  modes  are  unknown,  an  overly  con¬ 
servative  design  must  be  proposed  by  the  designer  based  on  his 
Interpretation  of  the  available  data.  An  overly  conservative  design, 
unfortunately.  Implies  that  additional  material  has  been  used  wherever 
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necessary  to  compensate  for  a  lack  of  confidence  In  predicting  various 
failure  modes.  Such  practices,  of  course,  lead  to  Inefficient  designs. 

There  Is  one  other  Important  difference  between  metal  joints 
and  composite  joints  which  should  be  mentioned.  It  can  be  deduced, 
using  the  results  from  [1],  that  the  stress  concentration  factor 
which  results  In  an  anisotropic  joint  is  greater  than  that  which 
occurs  In  a  geometrically  similar  Isotropic  joint.  This  is,  of  course, 
a  disadvantage  associated  with  using  composite  materials  In  joints. 

It  Is,  however,  more  than  compensated  for  by  the  materials  specific 
strength  and  specific  stiffness  properties. 

To  recover  the  potential  weight  savings  of  designing  with 
composite  materials  new  design  procedures  must  be  proposed  which 
will  result  in  optimum  joint  designs  with  respect  to  total  joint 
weight.  It  is  the  purpose  of  the  sported  study  to  investigate 
such  improved  design  procedures. 

A  first  attempt  at  such  design  procedures  is  proposed  and 
Is  discussed  in  detail  in  Section  3.2.6.  The  procedures  are  sufficiently 
general  that  they  may  be  used  In  conjunction  with  most  available 
optimization  routines.  The  results  are  being  programmed  by  this 
Investigator  using  an  in-house  pattern  search  optimization  routine. 

Given  valid  input  data,  the  program  is  designed  to  output  that  joint 
design  in  design  space  which  has  the  minimum  total  joint  weight 
while  satisfying  all  the  imposed  design  constraints.  The  results  w*ll, 
of  course,  only  be  as  accurate  as  the  assumptions  on  which  the  analysis 
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is  based.  As  a  result,  further  investigations  regarding  the  accuracy 
of  these  assumptions  is  warranted  and  will  be  performed  by  this  investi¬ 
gator. 

As  mentioned  above,  three  failure  modes  have  been  observed 
in  metal  joints:  net  tensic  shear-out,  and  bearing.  Each  of  these 
modes  exhibits  ductile  fracture  behavior.  In  composite  joints  not 
only  are  there  additional  modes  of  failure  to  consider  but  fracture 
behavior  ranges  from  ductile  to  brittle,  depending  on  the  failure  mode 
being  considered. 

Finite  element  stress  analyses  of  bearing  and  shear-out 
failures  in  composite  materials  [2]  have  shown  that  large  regions 
of  laminate  destruction,  on  the  order  of  a  hole  diameter  in  size, 
occur  prior  to  actual  laminate  failure.  It  was  also  found  that 
highly  localized  regions  of  laminate  failure,  about  two  orders  of 
magnitude  smaller  than  those  required  for  bearing  and  shear-out 
failures,  were  present  when  net  tension  failures  occurred.  It  is 
apparent,  therefore,  that  these  various  failure  mechanisms  must 
be  understood  before  a  truly  optimum  joint  design  can  be  achieved, 
since  a  single  failure  criterion  is  not  applicable  to  all  the  possible 
modes  of  failure  in  composite  materials. 

A  recent  study  [3]  has  postulated  the  existence  of  a  small 
but  finite  region  of  intense  energy  which  supposedly  governs  failure 
in  composite  tension  coupons.  If  stress  concentrations  induce  such 
regions  of  intense  energy  in  composite  tension  coupons  a  similar 
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phenomenon  should  occur  in  composite  bolt  bearing  specimens.  The 
results  reported  in  [2],  therefore,  tend  to  support  such  a  theory. 

To  further  understand  the  phenomenon,  a  finite  element 
study  was  performed  for  several  composite  tension  coupons  and  is 
reported  in  Section  3.2.2.  Again,  very  small,  highly  localized  regions 
of  laminate  destruction  were  observed  prior  to  actual  failure.  As 
a  logical  extension  to  the  tension  coupon  experimental  study  [3] 
four  geometrically  similar  bolt  bearing  specimens  were  designed. 

Section  3.2.2,  to  fail  in  net  tension  using  a  quasi-isotropic  boron- 
epoxy  material.  These  specimens  are  presently  being  fabricated  and 
will  be  tested  at  General  Dynamics,  Fort  Worth.  If  a  characteristic 
crack  length  hypothesis  is  indeed  valid,  significant  differences  in 
applied  failure  stresses  for  these  specimens  should  be  observed. 

These  differences  should  be  predictable  from  the  theory  presented 
in  [3]. 

The  design  procedures  outlined  and  discussed  in  Section 
3.2.6  are  only  intended  to  represent  an  initial  attempt  at  moving 
toward  the  desired  design  procedures  for  joints  made  from  composite 
materials.  In  Section  3.2.7  those  areas  which  require  further  investi¬ 
gation  are  indicated. 

3.2.2  Investigation  of  the  Characteristic  Crack  Length  Hypothesis 
Past  experience  with  predicting  net  tension  failure  in 
anisotropic  bolt  bearing  specimens  using  the  distortional  energy 
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failure  criterion3  [2]  has  shown  that  a  small  but  finite  region  of 
material  at  the  hole  surface  is  always  "past  the  point  of  failure" 
before  laminate  failure  occurs.  These  regions  were  originally  considered 
to  result  from  an  inherent  conservatism  of  the  finite  element  solution 
technique.  A  recent  sutdy  performed  at  General  Dynamics  [3]  has  postulated 
the  existence  of  a  region  of  Intense  energy  in  composite  tension  coupons 
which  seems  to  govern  failure.  The  finite  element  results  [2]  in 
retrospect  appear  to  support  such  a  theory. 

In  the  study  performed  at  GD  a  series  of  graphite/epoxy  tension 
coupons  were  designed  and  tested  to  failure.  The  specimens  were  identical 
in  overall  siz*  and  lamination  but  the  sizes  of  the  circular  cutouts 
varied.  If  a  similar  series  of  metal  specimens  were  tested  it  would 
be  possible  to  predict  the  failure  loads  of  all  the  specimens  from  the 
experimental  failure  load  of  a  single  specimen,  using  scaling  factors 
which  are  only  geometry  dependent.  In  the  case  of  the  graphite/epoxy 
coupons  a  simple  scaling  of  failure  loads  was  not  possible.  It  was 
found,  however,  that  the  observed  failure  behavior  could  be  explained 
via  fracture  mechanics  if  the  existence  of  a  region  of  intense  energy 
or  a  characteristic  crack  length  was  hypothesized.  For  a  given  laminate 
the  size  of  the  region  was  assumed  constant. 

3It  is  well  known  that  the  Hill  failure  criterion  is  not  a  distortional 
stress  energy.  However,  because  of  the  close  similarity  with  the  iso¬ 
tropic  failure  criterion  of  distortional  energy,  the  phrase  “distortional 
energy  failure  criterion"  will  denote  the  Hill  failure  criterion  as  used 
in  Section  3.1. 


As  previously  mentioned  highly  localized  regions  of  predicted 
laminate  failure  have  been  observed  via  finite  elements  in  composite 
bolt  bearing  specimens.  An  investigation  to  determine  whether  or 
not  similar  regions  could  be  observed  via  finite  elements  in  composite 
tension  coupons  has  since  been  completed.  Two  specimens  were  selected 
from  [3]  for  analysis.  The  failure  loads  predicted  by  the  theory  [3] 
for  these  two  specimens  were  used  as  applied  loads  for  the  computer 
runs.  Using  the  most  recent  graphite/epoxy  material  constants  and 
ultimate  allowables  It  was  found  that  for  a  tension  coupon  containing 
a  1.0  Inch  diameter  hole  the  region  of  localized  failure  measured 
50  mils.  Likewise,  for  a  specimen  containing  a  0.2  inch  diameter 
hole  the  region  measured  31  nils.  The  characteristic  crack  length 
proposed  *or  the  laminate  used  In  the  actual  specimens  was  approxi¬ 
mately  40  mils  and  agrees  quite  well  with  the  finite  element  results. 
Distortlonal  energy  contour  plots  for  the  various  laminae  In  the  1.0 
Inch  diameter  specimen  are  shown  In  Figure  1.  Localized  lamina 
failure  Is  predicted  to  occur  when  the  value  of  the  normalized 
dlstortional  energy  exceeds  1.0  [2]. 

There  are  several  reasons  to  suspect  that  the  values  of 
the  dlstortional  energies  near  the  hole  are  not  entirely  accurate. 
Finite  element  size  differences  In  the  two  specimens  at  the  hole 
surface,  the  effects  of  Interlaminar  shear  at  the  circular  boundaries, 
and  uncertainties  regarding  the  cross  term  in  the  distortional  energy 
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failure  criterion  probably  account  for  a  large  percentage  of  any 
possible  error.  The  fact  that  a  small  region  of  material  appears  to 
be  “past  the  point  of  failure"  in  both  specimens  before  laminate 
failure  occurs,  however,  's  the  significant  result  rather  than  the 
actual  sizes  of  these  regions. 

If  a  region  of  intense  energy  actually  governs  failure  in 
composite  tension  coupons  it  should  also  govern  failure  in  bolt  bearing 
specimens  made  of  the  same  material.  Thus,  four  geometrically  similar 
bolt  bearing  specimens  were  sized  using  a  quasi -isotropic  graphite/ 
epoxy  laminate  to  see  if  differences  In  experimental  failure  loads 
could  be  observed  and  explained  using  the  characteristic  crack  length 
hypothesis.  The  equations  presented  in  [4]  were  used  to  size  che  ini¬ 
tial  design.  Table  1.  The  ultimate  load  predicted  by  the  equations 
for  a  net  tension  failure  was  slightly  less  than  that  necessary  for 
a  bearing  failure  and  only  about  two  thirds  that  necessary  for  a 
shear-out  failure.  A  computer  analysis  of  the  proposed  specimen 
configuration  indicated  that  a  net  tension  failure  would  occur  at 
precisely  the  load  predicted  by  the  equations.  The  resulting  dis- 
tortional  energy  plots  for  the  initial  design  are  shown  in  Figure  2a. 

Note,  however,  that  the  results  reported  in  [2]  indicate 
that  before  a  bearing  failure  may  occur  in  a  bolt  bearing  specimen 
a  large  region  of  material  directly  ahead  of  the  bolt  must  exhibit 
normalized  distortional  energies  greater  than  1.0.  Thus,  the  computer 
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analysis  predicts  a  net  tension  failure  to  occur  well  ahead  of  any 
possible  bearing  failures.  Figure  2a.  This,  however,  disagrees  with 
the  behavior  predicted  by  the  equations. 

At  the  request  of  Mr.  J.  R.  Eisenmann  the  specimen  was 
resized  to  eliminate  even  the  remotest  possibility  of  premature 
bearing  failures  since  such  failures  would  give  no  information  re¬ 
garding  the  possible  presence  of  a  characteristic  crack  length.  In 
the  revised  design  (Table  2)  the  specimen  width  has  been  decreased 
and  the  edge  distance  increased.  The  equations  now  predict  a  net 
tension  failure  to  occur  well  ahead  of  both  bearing  and  shear-out 
failures.  A  computer  analysis  of  the  revised  design  again  indicated 
that  a  net  tension  failure  would  occur  (See  Figure  2b).  The  failure 
load  predicted  by  the  computer  analysis,  however,  was  58*  greater 
than  the  failure  load  predicted  by  the  equations.  Both  the  equations 
and  the  finite  element  analysis  agree  that  a  net  tension  failure 
will  occur  well  ahead  of  both  bearing  and  shear-out  failures.  The 
two  methods  disagree  significantly,  however,  on  the  predicted 
failure  loads. 

These  differences  in  predicted  failure  loads  indicate 
clearly  that  basing  bolt  bearing  specimen  failure  predictions  on 
the  equations  presented  in  [4]  is  very  dangerous.  The  equations  are 
empirical  in  origin  and  only  apply  lo  a  limited  range  of  specimen 
geometries.  The  revised  design  is  obviously  outside  the  region 
of  applicability. 
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3.2.3  Review  of  Past  Design  Programs  Involving  Composite  Joints 

Two  programs  involving  the  design  and  testing  of  joints 
made  of  composite  materials  were  recently  completed  at  General 
Dynamics,  Fort  Worth.  In  the  original  program  [5]  specimens  were 
sized  to  fail  In  nat.  tension  at  the  innermost  row  of  bolts.  The 
maximum  load  to  be  carried  by  a  joint  was  first  specified.  An 
estimate  as  to  bolt  load  partitioning  was  next  made  based  on  the 
designers  understanding  of  load  distributions  in  isotropic  joints. 

The  laminate  to  be  used  was  selected  and  the  joint  dimensions  were 
then  scaled  from  existing  single-  and  double-fastener  coupon  data. 

During  testing,  eight  of  the  nine  specimen  designs 
failed  in  a  splitting  mode  rather  than  the  desired  net  tension  mode. 
Thus  the  techniques  used  in  sizing  these  joints  proved  to  be  un¬ 
satisfactory. 

In  the  second  joints  program  [6]  only  one  joint  was  designed 
and  tested.  The  maximum  load  to  be  carried  by  the  joint  was  again 
specified.  The  designer  assumed  that  each  bolt  in  the  joint  would 
carry  an  equal  percentage  of  the  total  joint  load  at  failure.  The 
longitudinal  strains  in  the  splice  plate  and  main  plate  were  set 
equal  at  two  locations  In  the  joint;  midway  between  the  first  two 
rows  and  last  two  rows  of  bolts.  The  specimen  was  sized  at  these  two 
locations  to  fail  in  net  tension  at  the  innermost  row  of  bolts.  A 
linear  taper  in  both  geometry  and  lamina  thicknesses  was  then  em¬ 
ployed.  The  resulting  joint  design  was  built  and  tested.  It  failed 
in  net  tension  at  the  innermost  row  of  bolts  as  desired. 
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The  major  criticism  of  the  latter  design  procedure  is 
that  it  ignores  the  interaction  between  bolt  load  partitioning  and 
joint  geometry.  The  design  procedures  proposed  by  this  investigator 
include  such  interaction  relationships.  The  following  section. 
Section  3.2.4  describes  the  proposed  load  partitioning  analysis  in 
detail.  In  Section  3.2.5  the  analysis  technique  is  used  to  predict 
bolt  load  distributions  for  six  specimens  selected  from  [5]  and  [6]. 
The  results  are  used  as  input  data  for  finite  element  analyses  of 
the  various  specimens.  A  joint  failure  criterio.i  Is  then  proposed 
which,  when  applied  to  the  finite  element  results,  successfully 
predicts  failure  modes  and  conservatively  predicts  failure  loads 
for  each  of  the  specimens. 
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3.2.4  Evaluation  of  Load  Partitioning  in  Joints 

Tc  design  a  joint  one  must  first  understand  the  way  in 
which  changes  in  joint  geometry  affect  bolt  load  partitioning. 

Two  methods  for  predicting  bolt  load  distributions  in  a  given  joint 
are  proposed  here.  The  first  will  be  referred  to  as  the  point  strain 
matching  technique,  and  the  second,  as  the  displacement  matching 
technique. 

In  both  techniques  only  a  single  col  win  of  bolts  will  be 
considered.  Larger  joints  may  be  constructed  from  identical  columns 
of  bolts  connected  to  one  another  along  their  common  sides.  When 
stress  analyses  are  performed  for  su.h  joints  curves  presented  in 
[7]  rill  be  used  to  correct  for  the  effects  induced  by  the  adjacent 
columns.  Both  techniques  assume  that  all  bolts  act  as  rigid  pins 
and  that  the  effects  of  plate  bending  are  negligible. 

3. £.4.1  Point  Strain  Matching  Technique 

In  the  point  strain  matching  technique  the  average  longi¬ 
tudinal  strain  in  the  main  plate,  em,  is  equated  to  the  average 
longitudinal  strain  in  the  splice  olates,  es,  midway  between  each 
set  of  adjacent  bolts  in  a  given  column.  Referring  to  Figure  3  we 
may  write 

(1,  i  +  1)  -  (F  -jpk)  /  (EotV'  (1) 

and 

cs  0.1  +  ')=^  Jpfc  /<EXSAS)  (2) 
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The  notation  (i,  i  +  1)  implies  evaluation  at  the  midpoint  between 
the  bolts  labeled  i  and  (i  +  1).  Note  that  equations  (1)  and  (2) 
are  written  for  joints  loaded  in  double  shear.  The  equations  may 
be  used,  however,  for  joints  which  are  loaded  in  single  shear  if  one 
half  the  total  cross  sectional  area  of  the  single  shear  splice  plate 
at  the  various  midpoints  is  substituted  for  A$. 

The  assumption  is  now  made  that 

en(i,  i  +  1)  =  e$(i,  i  +  1)  (3) 

Substituting  equations  (1)  and  (2)  into  (3)  and  rearranging  we  have: 

i  F 


Equation  (4)  may  be  evaluated  for  i  *  1,  N  -  1,  where  N 


is  the  total  number  of  bolts  per  column.  Thus,  equation  (4)  represents 
a  total  of  (N  -  1)  equations  in  N  unknowns,  namely  thru  P^.  One 
other  equation  can  be  written  which  relates  the  individual  bolt 
loads.  It  is,  of  course,  the  overall  joint  equilibrium  equation. 

N 

F  =  E  P.  (5) 

k=l  K 

For  a  given  specimen  the  modulus  and  cross  sectional  area  of  both 
the  main  plate  and  splice  plates  are  known  at  every  point  along  the 
specimen.  Therefore,  equations  (4)  and  (5)  can  be  used  to  solve 
directly  for  P^  thru  P^. 
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3. 2.4. 2  Displacement  Matching  Technique 

In  the  displacement  matching  technique  the  change  in  length 
of  a  section  of  main  plate  between  two  adjacent  bolts  is  equated  to 
the  change  in  length  of  the  section  of  splir-  plates  between  the 
same  two  bolts.  That  is 

A^m  (i  i  +  1)  =  a£$  (i  -  i  +  1)  (6) 

Equations  (1)  and  (2)  may  be  rewritten  as  follows: 


(F-k£!  Pk)  dx 
Em(x)  Am(x) 


(7) 


d£. 


(?  kh  Pk}  dx 

Es(x)  A$(x) 


(8) 


These  equations  require  that  the  modulus  and  cross  sectional  area 
of  both  the  .nain  plate  and  splice  plates  be  expressed  as  functions 
of  x.  Integrating  (7)  and  (3)  with  respect  to  x  from  x.  to  x.  +  ^ 
and  substituting  into  (6)  it  follows  that 
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As  before  from  equilibrium  we  Slave 
N 

F  «  z  P  (1?) 

k=l  * 

Equations  (9)  and  (11)  represent  N  equations  In  N  unknowns  which  may 
be  solved  directly  for  P^  thru  P^. 

The  point  strain  matching  technique  Is  used  in  Section  3.2.5 
to  calculate  load  distributions  for  the  specimens  analyzed.  The 
load  distribution  for  one  of  the  specimens  was  calculated  a  second 
time  using  the  displacement  matching  technique.  A  comparison  of  the 
results  is  shown  in  Section  3.2.5.  The  differences  In  load  distribu¬ 
tions  are  seen  to  be  negligible. 

The  displacement  matching  technique  1.  based  on  a  more 
realistic  assumption  regarding  physical  joint  behavior  than  is 
the  point  strain  matching  technique.  Thus  the  reader  may  prefer  to 
use  the  displacement  matching  equations  In  the  proposed  joint  synthesis 
procedure  discussed  1r,  Section  3.2.6.  Further  investigation 
regarding  possible  Jifferences  in  t!  .  predicted  behavior  of  the  two 
techniques  is  warranted. 
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3.2.5  Computer  Analysis  of  Experimentally  Failed  Composite  Joints 

The  purpose  of  the  analysis  phase  was  to  establish  a  pro¬ 
posed  joint  failure  criterion  which  could  be  automated  and  included 
in  the  final  optimization  program.  The  proposed  criterion  should 
be  able  to  predict  both  joint  failure  location  and  failure  mode.  It 
should  also  be  conservative  in  predicting  failure  loads  and  as  simple 
operationally  as  possible. 

Six  joints  designed  and  tested  at  General  Dynamics  were 
selected  from  [5]  and  [6]  and  were  analyzed  via  finite  elements. 

Table  3  describes  these  various  joints  in  detail. 

Analyzing  a  complete  joint  in  a  single  finite  element  run 
with  any  degree  of  accuracy  was  impossible  due  to  computer  storage 
limitations.  It  was,  in  fact,  only  possible  to  analyze  one  hole 
at  a  time  to  achieve  suitable  accuracy. 

Thus,  the  following  analysis  procedure  was  used.  Each  of 
the  joints  analyzed  consisted  of  a  number  of  identical  columns  of 
bolts  as  illustrated  in  Figure  4a.  It  was  assumed  that  each  column 
could  be  analyzed  separately  and  that  each  carried  an  equal  share 
of  the  total  joint  load  which  was  present  at  failure.  The  joint 
geometries  of  six  specimens  selected  for  investigation  were  such 
that  if  the  joints  were  made  of  an  isotropic  material  the  effects 
of  adjacent  columns  of  bolts  would  be  negligible  [7].  The  equations 
from  [1]  indicate  that  the  stress  concentration  factors  which  result 
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in  anisotropic  tension  coupons  are  always  gr.  ter  than  the  stress  con¬ 
centration  factors  which  result  in  geometrically  similar  isotropic 
tension  coupons.  It  is  reasonable  to  assume  that  the  same  holds 
true  for  bolt  bearing  specimens.  Thus  the  assumption  was  made  that 
the  effects  of  adjacent  columns  of  bolts  were  negligible  in  the 
actual  composite  joints  since  for  the  same  applied  loads  a  greater 
stress  concentration  factor  implies  a  more  rapid  stress  field  decay. 

To  determine  the  effects  of  adjacent  columns  of  bolts 
on  the  column  of  interest  in  the  synthesis  routine  the  graphical 
results  from  [7]  will  be  used  due  to  a  lack  of  similar  information 
for  composite  materials.  Thus,  conservative  designs  with  respect  to 
specimen  width  will  result.  Excessive  conservatism  implies  a  wasting 
of  material  and  unwanted  weight.  Thus  the  degree  of  conservatism 
which  results  from  using  the  correction  factors  from  [7]  will  be 
investigated  in  the  future. 

The  point  strain  matching  technique  was  used  to  determine 
the  bolt  load  distribution  for  each  of  the  six  joints.  The  resulting 
distributions  are  shown  in  Figure  5.  The  displacement  matching 
technique  was  only  applied  to  one  specimen,  specimen  6,  for  reasons 
of  comparison  with  the  point  strain  matching  technique.  The  displace¬ 
ment  matching  results  are  included  in  Figure  5  and  are  denoted  by  the 
dashed  lines.  The  differences  between  the  two  sets  of  results  are 
seen  tc  be  negligible. 
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As  mentioned  above  it  was  necessary  to  isolate  single  bolt 
holes  for  analysis  to  achieve  suitable  finite  element  accuracy.  The 
holes  which  were  selected  for  analysis  were  modeled  as  single 
fastener  coupons  as  shown  in  Figure  4b.  Each  hole  in  specimen  6 
was  analyzed  while  only  the  first  and  last  holes  were  analyzed  for 
specimens  1  thru  5. 

The  stress  boundary  conditions  for  the  resulting  single 
fastener  coupons  were  determined  from  the  bolt  load  distribution 
results  in  the  following  manner.  Consider  the  itfl  hole  in  the 
column  of  bolts  illustrated  in  Figure  4c.  The  load  carried  by  the 
ith  bolt  is  Pg..  From  equilibrium  considerations  we  require  that 
a  skin  load,  Ps-,  of  magnitude 


N 

E 

k=i+l 


(12) 


be  carried  by  the  leading  edge  of  the  it!l  coupon.  The  skin  load  was 
applied  to  the  leading  edge  of  the  coupon  as  a  uniform  stress  in  the 
computer  analyses.  In  the  actual  specimens,  hov/ever,  the  material 
surrounding  a  given  bolt  hole  does  not  see  a  uniform  skin  stress 
in  the  vicinity  of  the  preceding  loaded  hole  unless  the  holes  are 
separated  by  a  sufficient  amount  of  material.  Compare  the  actual 
stress  distribution  at  the  leading  edge  of  the  imaginary  coupon. 
Figure  6a,  with  the  uniform  stress  distribution  imposed  at  that 
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boundary  in  the  finite  element  analysis.  Figure  6b.  The  amount  of 
load  which  must  flow  around  the  bolt  hole  in  Figure  6b  is  significantly 
greater  than  that  in  Figure  6a.  Thus  the  resulting  stress  concentra¬ 
tion  factor  in  the  amputee  analysis  will  be  greater  than  that  which 
occurs  in  the  actual  specimen. 

Corrections  were  made  to  the  computed  stress  concentrations 
using  [8]  in  an  attempt  to  account  for  the  error  induced  through  the 
use  of  the  uniform  skin  stress  boundary  condition.  Distortional 
energy  contour  plots  for  the  six  specimens  analyzed  are  shown  in 
Figures  7  thru  12.  It  has  been  found  by  this  investigator  [2] 
that  such  plots  are  extremely  convenient  for  data  presentation. 

In  regions  of  high  distortional  energies  the  principal  stress  ratios 
which  are  dominant  have  been  indicated.  Table  4  summarizes  the 
important  information  contained  in  these  figures. 

Figures  7  thru  11  are  for  the  five  specimens  selected 
from  the  original  testing  program  at  General  Dynamics  [5].  The 
first  four  specimens  failed  experimentally  in  splitting  modes  which 
appear  to  originate,  upon  examination  of  the  specimens,  at  the  last 
row  of  bolts.  The  fifth  specimen.  Figure  11,  failed  experimentally 
in  net  tension  at  the  first  row  of  bolts.  Figure  12  represents 
the  single  specimen  tested  in  the  second  General  Dynamics  program  [6]. 
It  also  failed  in  net  tension  et  the  first  row  of  bolts.  The 
experimental  failure  behavior  of  these  specimens,  in  conjunction 
with  tne  stress  analysis  results  illustrated  in  the  figures,  was 
used  in  the  development  of  the  proposed  joint  failure 
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criterion.  A  description  of  how  the  criterion  evolved  is  presented 
below. 

Consider  for  the  moment  Figures  7  thru  10.  The  stress 
patterns  are  identical;  the  values  only  differ  slightly.  The  dis¬ 
cussion  which  follows  fo'*  Figure  7  is  also  valid  for  Figures  8  thru  10. 

A  region  of  very  high  distortional  energies  occurs  in  the  0°  laminae 
directly  ahead  of  the  last  row  of  bolts  in  the  specimen.  The  a2/°2ut 
stress  ratios  are  dominant  in  the  region,  which  implies  local  matrix 
failure  (splitting).  The  maximum  value  or  or1/oluc  in  the  region  is 
0.49.  Results  from  [2]  indicate  that  once  the  0°  laminae  split 
(i.e.,  cr2/cr2ut-  >  1-0)  a  value  of  o1/aluc  *  0.65  is  necessary  to  cause 
a  bearing  failure  to  occur.  Thus,  even  though  the  0°  laminae  have 
split.  Figure  7,  the  values  of  ox/a1  are  not  large  enough  to  cause 

U  L 

a  bearing  failure  to  occur. 

It  has  been  assumed  here  that  matrix  failure  does  not 
significantly  .  tirade  the  laminate  since  the  percentage  of  hoop  load 
carried  by  the  0°  laminae  directly  ahead  of  the  bolt  was  small.  How¬ 
ever,  in  specimens  where  a  large  percentage  of  the  hoop  load  is  carried 
by  the  matrix  prior  to  failure  a  similar  assumption  is  not  possible. 
Consider  a  specimen  consisting  of  almost  all  0°  laminae  and  only  a 
few  ±45°  laminae.  Matrix  failures  in  the  0°  laminae  would  result  in 
significant  load  transfer  from  the  0°  laminae-  co  the  ±45°  laminae. 

Even  if  laminate  failure  did  not  occur  as  a  result  of  the  load  transfer 
the  laminate  would  be  significantly  damaged.  It  is  apparent,  therefore. 
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that  a  successive  failure  analysis  must  be  Included  In  the  final  design 
procedure  to  account  for  such  load  redistribution. 

High  dlstortlonal  energies  also  result  In  the  0°  laminae 
at  e  *  90°,  Figure  7,  at  both  the  first  and  last  row  of  bolts  due  to 
large  values  of  o1/o1(jt  In  these  regions.  The  maximum  dlstortlonal 
energy  value  at  the  last  row  of  bolts,  2.0,  Is  greater  than  the  maximum 
value  at  the  first  row,  1.5.  The  same  Is  true  of  the  maximum  values 
of  o!/olut  In  these  two  regions.  If  the  0°  laminae  were  to  fall,  the 
±45°  laminae  would  not  be  able  to  carry  the  additional  load  transferred 
to  them  from  the  0°  laminae;  as  a  result,  laminate  failure  would  occur. 
Thus  a  net  tension  failure  at  the  last  row  of  bolts  Is  the  most  probable 
failure  mode  Indicated  from  the  results  so  far. 

The  assumption  that  matrix  failure  does  not  significantly 
degrade  the  laminate  Is  valid  throughout  specimen  1.  The  regions  of 
high  dlstortlonal  energies  which  result  from  large  o2/a2yit  ratios  are 
therefore  eliminated  from  consideration.  The  only  remaining  region 
of  Interest  Is  the  one  In  the  +45°  laminae  which  occurs  at  ti.e  last 
row  of  bolts  where  the  fibers  are  tangent  to  the  hole.  Both  the 
maximum  dlstortional  energy  value  and  maximum  oi/oiut  value  In  this 
region  are  greater  than  the  corresponding  values  which  indicated  a 
net  tension  failure  at  the  same  hole.  Once  the  +45°  fibers  break 
In  tension  the  remainder  of  the  laminate  cannot  carry  the  existing 
load  and  laminate  of  failure  also  occurs.  Thus  a  splitting  mode 
Is  favored  over  the  net  tension  mode  previously  Indicated  for 
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specimen  1.  Since  all  the  possible  regions  of  failure  Initiation  have 
been  examined  a  splitting  mode  is  predicted  by  the  analysis.  The 
actual  specimen  did  Indeed  fail  In  a  splitting  mode.  The  predicted 
failure  load  Is  conservative.  If  Pp  Is  the  actual  experimental 
failure  load  for  specimen  1  the  dlstortlonal  energy  failure  criterion 
predicts  failure  to  occur  at  Pp//2.5  or  0.64  Pp.  The  maximum  stress 
failure  criterion  predicts  failure  to  occur  at  Pp/1.5  or  0.67  Pp. 
Analyses  of  specimens  2  thru  4  yield  very  similar  results. 

Following  the  same  procedure  It  can  be  deduced  that  a 
bearing  failure  does  not  occur  in  specimen  5,  Figure  11.  Both  the 
dlstortlonal  energy  and  maximum  stress  failure  criteria  conservatively 
predict  a  net  tension  failure  to  occur  at  the  first  row  of  bolts, 
which  again  agrees  with  the  experimental  failure  mode. 

Predicting  failure  for  specimen  6  is  slightly  more  compli¬ 
cated.  The  finite  element  results.  Figure  12,  Indicate  that  °i/°iuc 
reaches  0.65  at  the  last  row  of  bolts  in  the  0°  laminae  prior  to 
matrix  failure,  o2/o2(Jt  =1.0.  A  bearing  failure  is  predicted  to 
occur  In  such  a  case  at  that  load  where  either  o2/o2ut  reaches  1.0 
or  o!/oluc  reaches  1.0,  whichever  occurs  first.  The  assumption 
Is  made  at  bearing  failure  initiation  that  the  bolt  causing  the 
bearing  failure  to  occur  is  unable  to  carry  any  additional  load  during 
subsequent  specimen  loading.  The  additional  applied  load  Is  dis¬ 
tributed  among  the  remaining  bolts  In  the  column  In  proportion  to 
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the  loads  which  they  carried  at  bearing  failure  initiation.  Figure 
12  is  the  finite  element  representation  of  the  state  of  stress 
present  in  specimen  6  when  the  experimental  failure  load  was  applied. 
Notice  that  o2/o2ut  =1.0  and  °i/°iuc  =  0.80  in  the  0°  laminae 
directly  ahead  of  the  last  row  of  bolts.  The  material  ahead  of 
the  last  row  of  bolts  has  failed  in  bearing  and  load  redistribution, 
as  described  above,  has  taken  place.  A  load  distribution  plot  for 
specimen  6  is  illustrated  in  Figure  12.  Note  that  the  revised  load 
distribution  plot  is  much  more  uniform  than  that  of  Figure  5(f). 

Observe  that  regions  of  high  distortional  energies  do  not 
occur  in  the  vicinity  e  *  +45°  at  any  of  the  bolt  holes  except  at 
the  last  row  of  bolts  in  the  -45°  laminae.  Matrix  failure  is  on 
the  verge  of  occurring  here.  Net  tension  failures,  however,  are 
indicated  at  various  locations  along  the  specimen  which  would  occur 
prior  to  matrix  failure  in  the  -45°  laminae.  A  splitting  mode  is, 
therefore,  definitely  not  Indicated  by  the  distortional  energy  plots. 

Regions  of  high  distortional  energies  in  the  0°  laminae 
at  e  =  90°  are  present  at  the  first  and  third  through  sixth  rows 
of  bolts.  The  maximum  distortional  energy  value,  1.2,  occurs  at 
the  fifth  row.  The  largest  value  of  °i/aiut  in  these  four  regions 
of  interest  is  1.03,  which  also  occurs  at  the  fifth  row.  Thus, 
both  the  distortional  energy  and  maximum  stress  failure  criteria 
predict  a  net  tension  failure  to  occur  in  specimen  6  at  the  fifth 
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row  of  bolts  at  0.97  Pp,  where  Pp  is  the  actual  experimental  failure 
load  for  the  specimen.  The  predicted  failure  load  Is  again  conserva¬ 
tive  but  only  by  about  3X  as  opposed  to  about  35X  for  specimens  1 

thru  5.  The  predicted  failure  mode  was  again  correct  but  the  location 

was  not. 

The  analysis  of  specimen  6  shows  that  the  design  was  a 
good  one.  In  that  each  hole  was  close  to  failure  when  the  joint 
failed  experimentally.  Notice  also  that  the  various  bolts  were 
fairly  equally  loaded  when  joint  failure  occurred.  Some  designers 
feel  that  such  a  bolt  load  distribution  Is  necessary  If  a  joint 
Is  to  carry  load  efficiently.  The  validity  of  such  a  statement  can 
only  be  determined  by  further  analytical  and  experimental  Investi¬ 
gation. 

Thus  a  joint  failure  criterion  has  been  proposed  which 
has  successfully  satisfied  the  requirements  Imposed  on  It 
at  the  beginning  of  Section  3.2.5.  The  criterion  was  able  to  predict 
both  failure  location  and  failure  mode  In  all  but  Specimen  6 
where  It  Incorrectly  predicted  failure  location. 

More  importantly  It  was  able  to  conservatively  predict  failure  loads 
for  each  specimen.  It  was  found  that  the  maximum  stress  failure 
criterion  agreed  with  the  distortional  energy  failure  criterion 
to  within  just  a  few  percent  in  predicting  failure  loads.  It  was  also 
found  that  failure  was  always  Initiated  at  locations  around  hole 


surfaces  where  fibers  were  being  broken  in  tension  and  were  tangent 
to  the  hole  surface. 

Therefore,  to  make  the  failure  criterion  as  operationally 
simple  as  possible  we  need  only  check  for  fiber  failures  where  the 
fibers  run  tangent  to  the  hole  surface.  A  successive  failure 
analysis  must  be  performed  at  these  locations  to  insure  against 
premature  failures  induced  by  matrix  failures  in  other  laminae. 

The  successive  failure  analysis  should  also  be  performed  in  regions 
where  fibers  are  perpendicular  to  the  hole  surface  since  matrix 
failures  in  these  laminae  may  also  induce  premature  laminate 
failures. 
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3.2.6  Proposed  Mechanically  Fastened  Joint  Design  Program 

The  preceding  sections  explain  the  procedures  one  would 
go  through  if  a  given  joint  were  to  be  analyzed.  A  method  is  now 
proposed  by  which  a  joint  may  be  designed  to  meet  certain  design 
constraints  while  attempting  to  minimize  total  joint  weight. 

An  outline  of  the  proposed  mechanically  fastened  joint 
synthesis  program  is  presented  below  to  give  a  general  understanding  of 
the  procedures  involved  in  arriving  at  an  optimum  joint  design  with 
respect  to  total  joint  weight.  The  various  procedures  are  then 
discussed  in  detail. 

3.2.6. 1  Outline  of  Proposed  Synthesis  Program 

(A)  Specify  the  known  input  data. 

(B)  Determine  the  design  variables  and  their  range  of  allowable  values. 

(C)  Specify  the  necessary  design  constraint  equations  which  will 
insure  that  joint  failure  does  not  occur  until  the  design 
ultimate  load  is  reached.  The  design  ultimate  load  will  be 
included  as  part  of  the  input  data. 

(D)  Specify  an  initial  design 

(E)  Calculate  the  various  bolt  loads  for  the  current  proposed  geometry 
using  the  bolt  load  partitioning  results.  Section  3.2.4. 

(F)  Perform  a  stress  analysis  of  the  proposed  design  to  determine  the 
average  laminate  stresses  at  various  critical  points  along  each  of 
the  circular  boundaries.  A  closed  form  solution  to  the  problem 
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Illustrated  in  Figure  13a,  based  on  the  theory  presented  in  [9], 
will  be  used  to  perform  the  required  stress  analyses.  Corrections 
will  be  made  to  account  for  the  effects  of  finite  specimen  size 
from  [10]. 

(G)  Transform  these  average  laminate  stresses  to  lamina  stresses. 

(H)  Determine  whether  any  of  the  lamina  stresses  exceed  the  design 
constraints  imposed  in  (C). 

(I)  Assign  penalty  functions  to  the  weight  function  for  each  design 
constraint  which  is  not  satisfied  and  calculate  the  total  weight 
for  the  proposed  joint  design. 

(J)  Select  a  new  design  by  moving  in  design  space  along  a  path 
which  tends  to  decrease  the  total  weight  function. 

(K)  Repeat  (E)  thru  (J)  until  a  suitable  optimum  design  is  achieved. 

(L)  If  desired,  a  detailed  stress  analysis  may  be  performed  for  the 
proposed  optimum  design  using  finite  elements.  Section  3.2.5.  A 
final  check  may  be  necessary  since  the  stress  analyses  performed 
in  (F)  are  based  on  isotropic  correction  factors. 

3. 2.6. 2  Discussion  of  Program  Details 

3. 2. 6. 2.1  Input  Data 

The  following  information  will  be  read  into  computer  program 

as  input  data.  It  may  be  desirable  in  later  work  to  include  one  or 

more  of  these  parameters  as  program  variables.  The  diameters  of  the 

4 

bolts  used  in  a  given  joint  will  all  be  the  same,  D  .  The  actual  size 

^Underlined  symbols  and  phrases  denote  input  information. 


104 


will  be  dictated  by  joint  application  as  well  as  by  standard  size 

limitations.  Given  an  effective  shear  allowable  for  the  bolt  material, 
B 

FSy  ,  and  the  maximum  load  to  be  carried  by  the  joint  per  column  of 

fasteners,  £,  one  may  determine  a  safe  number  of  bolts,  N,  to  be  used 

in  a  given  column  since  It  appears  from  the  analysis  of  specimen  6 

that  a  fairly  uniform  load  distribution  is  desirable. 

Selection  of  the  splice  plate  material  will  be  application 

dependent.  The  material  will  probably  be  either  a  high  strength 

S  S  S 

steel  or  titanium.  In  either  case  the  values  of  Fyy  ,  F^,  and  Fp^y 
must  be  input  so  that  constraint  relationships  may  be  later  defined 
to  Insure  against  splice  plate  failures  in  net  tension,  shear-out 
and  bearing  respectively.  In  the  load  partitioning  calculations 
the  splice  plate  modulus,  Es,  is  also  required. 

Similarly  a  decision  must  be  made  as  to  whether  boron/epo*y 
or  graphite/epoxy  will  be  used  as  the  main  plate  material.  The 
material  properties  and  ultimate  allowables  must  be  input  for  the 
material  system  selected. 

The  leading  edge  distance  of  the  main  plate  must  be  de¬ 
fined  since  values  of  F^  are  not  tabulated  for  composite  laminates. 
Such  information  would  be  very  valuable  to  the  current  effort  since 
excessively  large  edge  distances  result  in  low  joint  efficiencies. 

A  value  of  E/D  =  4.0  will  be  used  for  the  leading  edge  of  the 
composite  main  plate.  A  value  of  E/D  may  be  calculated  for  the 
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for  the  leading  edge  of  the  splice  plate  from  the  value  of  and 
the  maximum  bolt  load  carried  by  the  last  row  of  bolts,  which  will 
be  determined  using  the  bolt  load  partitioning  analysis. 

In  summary  the  required  input  data  is: 


Ell*  E22» 
G12*  v12 


°iut’  °2ut 


°luc‘  °2UC 


Elut*  £2ut 
Eluc*  £2uc 


T12u>  Y12u 


Bolt  diameters 

Effective  shear  strength  of  bolt  material 
Maximum  load  to  be  carried  per  column  of  bolts 
Number  of  bolts  per  column 

Effective  tension  strength  of  splice  plate  material 
Effective  shear-out  strength  of  splice  plate  material 
Effective  bearing  strength  of  splice  plate  material 
Splice  plate  modulus 

Composite  material  lamina  properties 


Lamina  ultimate  allowables  (Main  plate) 
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3. 2.6. 2. 2  Design  Variables 

In  this  section  seventeen  parameters  are  defined  which 
can  be  used  in  conjunction  with  the  input  data  to  completely  define 
a  given  joint.  If  restrictions  are  not  imposed  on  the  design  once 
the  input  data  is  determined,  the  seventeen  parameters  would  represent 
seventeen  design  variables.  If  restrictions  are  imposed  the  number 
of  design  variables  would  be  less  than  seventeen. 

At  the  beginning  of  the  program,  just  after  the  input  data 
is  read  in,  flags  will  be  used  to  indicate  which  of  the  seventeen 
parameters  are  to  be  predefined.  The  values  of  these  predefined 
parameters  will  then  be  read  in  as  additional  input  data.  The  remaining 
parameters  will  represent  the  design  variables. 

In  some  cases  the  design  variables  have  been  restricted  to 
a  certain  range  of  allowable  values.  Optimization  routines  require 
a  well  defined  design  s^ace  within  which  they  may  search  for  local 
minima.  Therefore,  where  limits  have  not  been  specified  for  design 
variables  it  is  uo  to  the  programmer  to  do  so. 

The  program  has  been  restricted  to  the  (0/±a/±e/90)  class 
of  laminates;  a  and  e  being  design  variables.  The  values  of  a  and  e 
are  restricted  to  the  range  15°  to  75°.  It  may  be  desirable  later 
to  restrict  the  possible  values  of  a  and  6  to  integer  values,  but  for 
the  present  work  integer  optimization  procedures  will  not  be  used. 

It  will  also  be  required  that  at  least  one  ply  of  each  of  the  four 
lamina  orientations  be  present  in  each  proposed  design.  In  this 
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manner  we  are  assured  that  fiber  failures  will  accompany  laminate 
failure  regardless  of  failure  mode.  A  design  where  o  and  b  are  set 
equal,  (0/±a/90),  is  also  acceptable  since  fiber  failures  still  must 
accompany  all  possible  laminate  failure  modes.  The  total  thicknesses 
of  the  various  lamina  orientations  are  assumed  to  be,  at  most,  linear 
functions  of  x,  the  position  along  the  joint.  More  complicated  lay 
up  patterns  will  not  be  included  in  the  present  study. 

Consider  the  joint  design  shown  in  Figure  14.  The  seventeen 
possible  design  variables  are  indicated  on  the  figure.  As  previously 
mentioned  the  values  of  ( E/D)m  and  (E/D)$  will  be  specified  Sy  the 
program.  If  a  joint  is  being  designed  which  will  consist  of  a  number 
of  identical  columns  of  bolts  the  widths  of  the  main  plate  and  splice 
plates  must  be  equal  and  constant  along  their  lengths.  The  designer 
must  input  such  information  as  described  above. 

In  summary  the  seventeen  possible  design  paramters  are  as 


follows: 


Parameters 


Description 


a,  B 

W-(0),  W  (L) 
t!(0),  t*(L) 

m5(o),  i£(l) 

jit  m 

tg(o),  t0(L) 
4(0),  V(L) 
CTO), 

t >>.  $( L) 


Lamina  orientations 
Width  of  splice  plate  at  x=0,  L 
Thickness  of  splice  plate  at  x=0,  L 
Width  of  main  plate  at  x=0,  L 
Joint  length 

Thickness  of  0°  lam.  .ae  at  x=0,  L 
Thickness  of  90°  laminae  at  x=0,  L 
Thickness  of  ±o°  laminae  at  x=0,  L 
Thickness  of  ±B°  laminae  at  x=0,  L 


Range 

15°  -  75° 

30  + 

-¥ 

3D  + 

[2(N-l)+4]0  -► 

1  ply 
i  ply  - 
i  ply  -*■ 
i  ply  ♦ 
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me  lower  limits  on  the  widths  and  length  measurements  are  based  on 
a  minimum  separation  of  free  surfaces  of  one  diameter.  These  values 
may  be  changed  by  the  programmer  if  desired.  The  upper  and  lower 
limits  which  have  not  been  specified  must  be  provided  by  the  programmer. 

3. 2. 6. 2. 3  Design  Constraints 

Once  a  design  is  proposed  it  must  be  loaded  to  design 
ultimate.  The  joint  failure  criterion.  Section  3.2.5,  must  then  be 
applied  to  determine  whether  or  not  the  proposed  design  can  indeed 
carry  the  design  ultimate  load,  as  required.  In  order  to  automate 
the  process  of  examining  the  joint  for  possible  failure  at  the  ith 
critical  location  an  equality  constraint,  F(i),  must  be  defined. 

For  the  in-house  pattern  search  optimization  routine,  the  equation 
must  be  written  in  such  a  form  that  F(i)  <  0  if  failure  is  not  indi¬ 
cated.  If  failure  is  predicted  to  occur,  then  F(i)  >  0.  As  previously 
mentioned  a  penalty  function  is  added  to  the  weight  function  when 
F(i)  >  0.  To  minimize  the  total  weight  of  the  joint  the  design  must 
move  in  design  space  in  a  direction  which  tends  to  reduce  the  penalty 
functions. 

Consider  the  possible  failures  which  could  occur  at  each 
hole  along  the  joint.  They  are: 

(1)  Bolt  failure  in  shear. 

(2)  Splice  plate  failures  in  bearing,  shear-out,  or  net  tension 

(3)  Main  plate  failures  in  bearing,  shear-out,  net  tension, 
splitting,  bending  tear-out,  or  combination  modes. 


109 


An  inequality  constraint  equation  must  be  written  for  each  of  the 
possible  failure  initiation  sites. 

To  test  for  bolt  failure  in  shear  we  calculate  the  maximum 
shear  stress,  TAU,  acting  on  the  bolt  cross  sectional  area. 

TAU  =  PB  /  (*R2)  *13) 

Pp  represents  the  bolt  load  acting  at  the  hole  of  interest. 
The  magnitude  of  Pg  is  determined  via  the  bolt  load  partitioning 
analysis.  Section  3.2.4. 

To  insure  against  a  bolt  failure  in  shear  we  require  that 

g 

TAU  s  Fsu  .  Stating  this  in  the  form  of  a  valid  inequulity  constraint 
we  have: 

F(l)  =  PB  /  (irR2)  -  F$uB  (14) 

Similarly,  to  insure  against  splice  plate  failures  at  a 
given  hole  in  bearing,  net  tension  or  shear-out  we  have  respectively: 

F(2)  =  P„  /  Dt  -  F8RUS  05) 

F(3)  =  (PB  +  Ps)  /  t(S  -  D)  -  FtuS  (16) 

F (4)  =  PB  /  2tE  -  F$u:  (17) 

The  skin  load,  P$,  is  calculated  from  equation  (12).  The  values  of 
t,  F,  and  S  for  a  given  bolt  bearing  model  are  determined  as  was  shown 
in  Figure  4. 

Now  consider  the  possible  composite  main  plate  failures. 

Once  a  stress  analysis  is  performed,  checks  for  possible  failure 
initiation  must  be  made  at  four  locations  (possibly  only  three  if 
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a  equals  &)  around  each  hole  as  discussed  in  Section  3.2.5.  Bearing 
failures  may  or  may  not  be  considered  desirable.  If  they  are,  the 
load  redistribution  procedures  discussed  in  Section  3.2.5  can  be  built 
into  the  computer  logic.  To  simplify  the  following  discussion  assume 
that  bearing  failures  are  undesirable. 

Thus,  if  at  c>  =  0°,  a  matrix  failure  occurs  in  the  0° 
laminae  (o2/o2ut  *  1.0)  a  bearing  failure  would  be  predicted  to 
occur  when  °i/°iuc  =  0.65.  If  matrix  failures  do  not  occur  during 
loading  then  0i/°iuc  *  1.0  would  be  necessary  for  a  bearing  failure 
to  occur.  Since  the  likelihood  of  a  bearing  failure  is  only  dependent 
on  the  stresses  at  e  =  0°  in  the  0°  laminae,  an  inequality  constraint 
equation  may  be  written  at  that  location  of  the  form 


F(5)  = 


°l/oiuc  “  1,0 

if 

o2/o2ut  <  1-0 

°l-/olUC  ■  0,65 

if 

o2/°2ut  >  1 -0 

(18) 

| 


It  was  postulated  in  Section  3.2.5  that  all  failure  modes, 
except  bearing,  have  one  thing  in  common.  They  all  seem  to  occur 
at  locations  where  fibers  are  tangent  to  a  hole  surface.  In  a 
(0  /±a/±e/90)  laminate  fibers  are  tangent  to  the  hole  surface  at 
e  =  90°,  (90  -  a)°,  (90  -  b)°,  and  0°  in  the  0°,  +a°,  +6°,  and  90° 
laminae  respectively.  If,  at  ultimate  load,  matrix  failures  have 
occurred  at  any  of  these  hole  locations  load  redistribution  among  the 
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various  laminae  must  be  considered.  The  stresses  in  the  remaining 
laminae  would  be  recalculated.  A  check  would  then  be  made  in  the 
laminae  which  are  tangent  to  the  hole  surface  to  see  whether  or  not 
the  fibers  have  failed  in  tension.  The  inequality  constraint  used 
for  this  purpose  is: 

F(6)  =  a!/olut  -  1.0  (19) 

Equation  (19)  must  be  applied  four  times  per  hole;  to  the  0°  fibers 
at  e  =  90°,  the  90°  fibers  at  e  =  0°,  the  +o°  fibers  at  e  =  (90  -a)°, 
and  the  +e°  fibers  at  e  =  (90  -  p)°.  Thus,  a  total  of  nine  inequality 
constraints  nust  be  satisfied  at  each  and  every  hole. 

In  the  past,  designers  have  designed  for  net  tension  failures 
at  the  innermost  row  of  bolts.  An  equality  constraint  of  the  form 

°]/°iut  -1.0-0  (20) 

could  be  imposed  on  the  stress  field  in  tne  0°  laminae  at  the  innermost 
row  of  holes  to  force  the  design  to  fail  there  in  ne'  tension.  Such  a 
restriction  is  not  justified,  however.  When  an  optimum  design  is 
arrived  at  using  the  nine  inequality  constraint  equations  per  hole,  one 
of  the  nine  equations  will,  in  the  process,  be  automatically  forced 
to  zero.  This  will  specify  joint  failure  mode  and  location.  Net 
tension  failures  at  the  innermost  row  of  bolts  may  not  result  when 
minimum  weight  designs  are  required. 

3. 2.6. 2.4  Design  Procedures 

In  order  to  begin  the  design  process  an  initial  design 
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must  be  selected.  The  initial  design  must,  of  course,  be  in  the 
design  space  which  is  defined  by  the  upper  and  lower  limits  placed 
on  the  design  variables. 

If  the  designer  has  a  design  in  mind  he  may  use  it  to 
activate  the  program.  Otherwise,  the  program  will  specify  an  initial 
design.  The  in-house  pattern  search  routine  uses  a  random  nunfcer 
generator  for  the  purpose  of  specifying  initial  values  for  the  design 
variables.  It  may  be  desirable  to  use  several  random  starting  points, 
if  run  times  are  not  excessively  long,  to  check  for  possible  local 
minimum  in  the  design  space. 

Once  an  initial  desman  is  proposed  the  bolt  load  partitioning 
results  would  be  used  to  calculate  the  bolt  load  distribution  for  the 
geometry  and  lamination  selected.  To  perform  such  calculations  the 
main  plate  and  splice  plate  cross  sectional  areas  as  well  as  the 
main  plate  modulus  must  be  defined  as  functions  of  x.  Referring 
back  to  Figure  14  it.  can  be  shown  that 

Am(x)  =  [(tm(L)-tin(0))  (x/L)  +  tI(1{0)]  C(Wm(L)-Wm(0))  (x/L)  4  Wm(0)]  (21) 
A$(x)  =  [(ts(L)-ts(0))  (x/L)  +  ts(0)]  [(Ws(L)-Ws(0)>  (x/L)  +  Us(0)]  (22) 

It  has  been  found  by  this  investigator  that  a  quadratic  polynomial  in 
x  can  be  used  to  represent  the  modulus  of  the  main  plate  to  within 
a  few  percent  when  linear  variations  in  lamina  thicknesses  are  employed. 
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Thus,  the  modulus  of  the  main  plate  may  be  determined  at  several  locations 
along  the  joint  using  lamination  theory  and  a  second  order  curve  of  the 
form 

Em(x)  =  Ax2  +  Bx  +  C  (23) 

may  be  fit  to  the  resulting  modulus  values.  The  values  of  A,  B,  and 
C  will  be  determined  automatically  by  an  internal  curve  fitting 
subroutine  for  the  proposed  design. 

The  only  remaining  unknowns  which  are  needed  to  calculate 
the  bolt  load  distribution  are  the  coordinate  locations  of  the  N 
bolts.  Since  L,  the  joint  length,  and  (E/D)m»  the  leading  edge 
distance  of  the  composite  main  plate,  are  known,  we  may  express 
the  N  bolt  locations  as: 

X ( I )  *  j£j-  |l-  j  where  I  *  1,  N  (24) 

The  bolt  loads  could  then  be  calculated  using  equations  (4)  and 
(5)  or  equations  (9)  and  (11). 

The  next  step  in  the  design  procedure  is  to  perform  a  row 
by  row  stress  analysis  of  the  proposed  design.  The  column  of  bolts 
is  broken  down  into  individual  bolt  bearing  specimens  as  shown  in 
Figure  4.  The  value  of  P  ^  would  be  calculated  using  equation  (12). 

Thus,  each  bolt  bearing  model  is  acted  on  by  a  bolt  load,  PBl-  and 
a  skin  stress,  o$1-  =  P$j/St.  Since  a  finite  element  solution  of 
each  bolt  bearing  specimen  is  too  costly  the  following  procedures  will 
be  followed. 
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The  problem  of  an  infinite  plate  containing  a  circular  cutout 
which  is  loaded  as  shown  in  Figure  13a  will  be  solved.  This  investigator's 
solution  [11]  to  the  problem  illustrated  in  Figure  13b  will  be  added 
to  the  solution  of  the  problem  illustrated  in  Figure  13c,  which  is 
presented  in  [12].  Corrections  to  the  stress  concentration  factors 
Induced  at  0  =  90°  and  e  =  0°  will  be  made  to  account  for  the  effects 
of  finite  specimen  size  using  the  results  presented  In  [13]  and  [14]. 
Corrections  to  the  average  laminate  stresses  along  the  circular  boundary 
from  e  =  0°  to  e  =  90°  can  then  be  estimated. 

The  corrected  average  laminate  stresses  would  be  transformed 
to  lamina  stresses  and  checks  would  then  be  made  tc  see  if  the  design 
constraints  discussed  in  Section  3. 2. 6. 2. 3  were  satisfied.  Penalty 
flections  would  be  assigned  to  the  weight  function  for  each  of  the 
constraint  equations  which  was  not  satisfied  and  the  total  joint 
weight  would  then  be  calculated.  The  optimization  procedure  would 
determine  a  preferred  path  and  select  a  new  design  along  that  path 
which  would  have  a  lower  total  joint  weight  while  more  closely 
satisfying  all  the  imposed  design  constraints. 

The  entire  process,  beginning  with  the  calculation  of  bolt 
loads  for  the  new  design  would  be  repeated  until  the  4jsign  constraints 
were  all  satisfied  and  a  local  minimum  weight  were  achieved. 

Since  the  design  procedure  uses  isotropic  correction 
factors  to  account  for  finite  specimen  size  there  is,  of  course,  some 
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doubt  concerning  the  actual  failure  behavior  of  the  proposed  optimum 
design.  Therefore,  it  may  be  desirable  to  perform  a  complete  stress 
analysis  for  the  proposed  optimum  design  to  see  how  closely  the 
predicted  failure  behavior  would  agree  with  the  desired  failure 
behavior.  The  analysis  method  described  in  Section  3.2.5  would  be  used 
if  the  final  check  were  to  be  made. 
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3. 2.  7  Areas  of  Future  Work 

Several  Important  questions  have  been  raised  regarding  the 
solution  technique  thus  far  which  deserve  mention  and  In  most  cases 
warrant  further  Investigation.  The  first  Involves  the  basically 
different  failure  mechanisms  which  can  occur  in  a  given  joint  made 
of  composite  materials.  Net  tension  failures  appear  to  behave  as 
brittle  failures  once  a  very  small  but  finite  region  of  localized 
laminate  destruction  occurs.  Bearing  failures  and  shear-out  failures, 
on  the  other  hand,  do  not  occur  unless  extensive  laminate  damage 
has  resulted  during  loading.  Thus  bearing  and  shear-out  failures 
behave  in  a  relatively  ductile  manner.  Additional  analytical  and 
experimental  work  must  be  done  to  understand  the  various  failure 
mechanisms  which  occur  in  composite  joints  before  truly  optimum 
designs  can  be  achieved.  The  results  of  the  proposed  geometrically 
similar  bolt  bearing  specimen  testing  program  should  bring  us 
closer  to  such  an  understanding. 

In  metals,  effective  bearing  strengths,  FgRU»  and  effective 
shear-out  strengths,  Fsu,  have  been  experimentally  determined  and 
are  used  in  the  design  process  to  specify  such  parameters  as  leading 
edge  distances.  Similar  information  is  generally  not  available  for 
composites  due  to  the  number  of  possible  laminates  which  could  be 
used  for  design  purposes.  Such  "material  properties"  would  be 
Invaluable,  however,  in  the  design  of  composite  joints  and  deserve 
further  investigation. 
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Similarly,  a  lack  of  data  concerning  the  effects  of  finite 
size  on  stress  concentrations  Induced  at  circular  cut-outs  In  composite 
plates  has  forced  us  to  predict  these  effects  from  available  Isotropic 
data.  Making  corrections  from  isotropic  data  results  in  a  conservative 
design  and  Is,  therefore,  partially  satisfactory.  The  need  for 
correction  factors  could  be  eliminated,  however,  if  the  in-house  two 
dimensional  anisotropic  Integral  equation  program  developed  by  Dr.  T.  A. 
Cruse  could  be  built  Into  the  optimization  program  in  such  a  way  as 
to  not  result  in  excessive  computer  run  times.  One  other  technique 
would  be  to  derive  the  necessary  correction  factors  for  various 
laminates  using  the  integral  equation  program  and  use  such  data  in 
place  of  the  isotropic  correction  factors  which  are  now  being  used. 

! 

Both  possibilities  are  presently  being  investigated. 

? 

The  following  questions  will  also  be  considered: 

I 

(1)  Are  uniform  bolt  load  distributions  and  net  tension  failures  at 

the  innermost  row  of  bolts  requirements  for  optimum  joint  designs? 

j 

(2)  Is  it  advantageous  to  use  the  displacement  matching  technique 

< 

rather  than  the  strain  matching  technique  to  predict  bolt  load 

i 

\  distributions? 

i 

(3)  How  should  load  redistribution  in  a  joint  be  handled  once  a 
bearing  failure  occurs  either  in  the  main  plate  or  splice  plates? 

(4)  Is  the  uncertainty  regarding  the  cross  term  in  the  distortional 
energy  failure  criterion,  as  discussed  in  [15],  a  major  problem 
to  be  considered?  A  preliminary  investigation  performed  during 
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the  contract  period  has  shown  that  in  certain  cases  the  cross 
term  may  be  the  most  Important  term  In  the  energy  relationship. 
These  questions  wlil  be  pursued  as  part  of  this  Investigator's  doctoral 
thesis  during  the  current  academic  year. 
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Spec. 

No. 

D 

E 

S 

p 

L 

■ 

No. 

Plies 

Predicted  Fal 

lure  Loads(lb) 

Finite  F.lements 

1 

0.125 

a 

0.53 

1,875 

0.08 

16 

647 

647 

2 

0.250 

0.62 

1.06 

3.750 

0.16 

32 

2,587 

2,587 

3 

0.375 

0.93 

1.59 

5.625 

0.24 

48 

5,820 

5,820 

D 

0.500 

1.24 

2.12 

7.500 

0.32 

64 

10,350 

10,350 

Table  2.  Revised  Bolt  Bearing  Specimen  Design 


Spec. 

No. 

D 

E 

S 

L' 

t 

No. 

Plies 

Predicted  Fal 

immn 

gjjggjgm 

1 

0.125 

0.50 

0.375 

2.25 

0.08 

16 

400 

625 

2 

0.250 

1.00 

0.750 

4.50 

0.16 

32 

1,600 

;  3 

0.375 

1.50 

1.125 

6.75 

0.24 

48 

3,600 

5,620 

m 

2.00 

1.500 

9.00 

0.32 

64 

6,400 

10,000 
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Table  3.  Description  of  the  Six  Specimens  Selected  for  Analysis 


Spec. 

No. 

Lamination 

Splice  Plate 
Material 

Loading 

Roms  of 
Bolts 

Bolts 
per  Row 

Failure 

Mode 

Ultimate 

Load(lb) 

|  1 

D6-AC  Steel 

SS 

6 

m 

SP 

BESS 

2 

SS 

5 

4 

SP 

115,500 

3 

6-4  T1 

SS 

5 

4 

SP 

n 

D 

553221 

SS 

4 

4 

SP 

125,400 

5 

52229 

D6-AC  Steel 

|  L.lj' 

4 

4 

T 

189,000 

6 

52QQI 

6-4  T1 

SS 

6 

2 

T  . 

74,800 

Nomenclature: 

Notes: 

SS 

Single  Shear 

(1)  Lamina  thicknesses  vary  linearly 

DS 

Double  Shear 

along  the  specimen  length  from 

B/E 

Boron- Epoxy 

0?/f45  at  the  first  row  of  bolts 

0/E 

Graphite- Epoxy 

to  02/t453  at  the  last  row  of 

SP 

Splitting 

bolts. 

T 

Tension 
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Table  4.  Summary  of  Significant  Data  from  Figures  7  thru  12 


Bearing ,e=0° 

Tension. e*90° 

Spl1tt1ng,e*+45°  | 

Spec. 

No. 

Row 

No. 

C 

1°  Lamina  j 

0°  Lamina 

+45°  Lamina 

-45°  Lamina  | 

°1 

°2 

DIST 

q1 

DIST 

P1 

DIST 

°2 

DIST 

°luc 

°2ut 

°lut 

°lut 

°2ut 

1 

First 

0.07 

C* 

0.02 

B 

B 

0.21 

0.10 

0.83 

1.10 

Last 

0.49 

2.50 

5.80 

m 

1.50 

2.50 

1.65 

3.20 

0 

First 

0.04 

0.01 

0.91 

1.00 

0.42 

0.25 

EO 

0.75 

c 

Last 

2.30 

5.10 

1.11 

1.41 

1.30 

2.10 

1.55 

2.60 

o 

First 

0.07 

0.05 

0.01 

0.83 

0.90 

0.63 

0.47 

0.79 

0.71 

0 

Last 

0.47 

2.50 

m 

1.34 

1.45 

1.43 

2.50 

1.73 

m 

H 

First 

0.13 

0.29 

0.11 

0.85 

0.85 

m 

0.69 

0.55 

H 

Last 

9.52 

2.80 

7.95 

1.07 

1.51 

_ 

1.55 

B 

1.90 

3.75 

c 

First 

0.30 

0.56 

0.42 

1.29 

a 

0.79 

0.90 

0.92 

0.90 

0 

Last 

0.60 

m 

OBI 

1.02 

1.41 

1.15 

1.65 

1.21 

1.88 

First 

0.03 

0.90 

0.95 

0.57 

0.44 

B 

1.12 

6 

Fifth 

IS 

0.21 

1.03 

1.20 

0.63 

0.60 

m 

1.15 

Sixth 

-.I; 

1.90 

0.80 

1.00 

0.63 

0.65 

B 

0.95 

*C  Compressive  stress 


124 


♦  45*  LAMINA  - 45*  LAMINA 


Figure  1.  Distortional  Energy  Contour  Plots  for  the  1.0"  Diameter,  Anisotropic 
Tension  Coupon  at  the  Experimental  Failure  Load. 
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90  LAMINA 


4  45*  LAMINA  -45*  LAMINA 


Figure  2a.  Distortional  Energy  Contour  Plots  for  the  Initial  Bolt  Bearing 
Speciman  Design  at  the  Predicted  Failure  Load. 
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♦  4^  LAMINA  -45°  LAMINA 


Figure  2b.  Dlstortlonal  Energy  Contour  Plots  for  the  Revised  Bolt  Bearing 
Specimen  Design  at  the  Predicted  Failure  Load. 
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Figure  3.  Double  Shear  Joint  Configurat 
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(b)  Bolt  bearing  modeling  procedure 


(c)  Loading  on  the  Ith  model 


Figure  4.  Bolt  Bearing  Modeling  Procedure  for  Joints. 
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%  LOAD 

40  — 


%  LOAD 

30- 

40- 


3  0— 


(a)  Specimen  I 


(b)  Specimen  2 


(c)  Specimen  3  (d)  Specimen  4 


%  LOAD  %  LOAD 

3  0—  30- 


(e)  Specimen  5  (f)  Specimen  6 

Figure  5.  Bolt  Load  Distributions  for  Specimens  1  thru  6. 

1?0 


Figure  6. 


(b)  Finite  element  stress  distribution 


Skin  Stress  Boundary  Conditions  at  the  Leading  Edge  of  a 
Bolt  Bearing  Model. 
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LAST  ROW 


FIRST  ROW 


Figure  7.  Specimen  1:  Oistortional  Energy  Contour  Plots  for  the  Experimental 

Failure  Load. 
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LAST  ROW  FIRST  ROW 


Figure  9.  Specimen  3:  Dlstortional  Energy  Contour  Plots  for  the  Experimental 

Failure  Load. 
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LAST  ROW  FIRST  ROW 


Figure  11.  Specimen  5:  Dlstortlonal  Energy  Contour  Plots  for  the  Experimental 

Failure  Load. 
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Figure  12a.  Specimen  6:  Distortional  Energy  Contour  Plots  for  the  Experimental  Failure  Load. 
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(a)  Problem  of  interest 


(b)Bolt  load  only  (c)  Tension  loading  only 


Figure  13.  The  Principle  of  Superposition  Applied  to  an  Infinite 
Bolt  Bearing  Model. 
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CHAPTER  IV 
OPTIMIZATION  METHODS 

4.1  INTRODUCTION 

A  computer  program  for  optimization  using  non-linear  programming 
by  pattern  search  (OPTIM),  written  by  Martin  Schussel  [1]  was  used  for  this 
study.  Some  time  was  spent  studying  this  program  and  a  sample  problem  was 
run  (torsion  of  an  elliptic  bar).  The  time  spent  In  finding  the  predicted 
result  of  this  problem  yielded  much  Insight  Into  optimization  techniques 
and  the  OPTIM  program  Itself. 

The  bolt-bearing  problem  was  analyzed,  using  OPTIM,  which  Included 
variation  of  the  ply  orientations.  This  study  Involved  a  problem  with  six 
variables  and  four  constraints.  For  a  given  load,  the  minimum  weight 
dimensions  and  orientations  were  found.  The  results  of  this  study  arr 
discussed  In  some  detail. 

4.2  STRUCTURAL  OPTIMIZATION 
4. 2. 1  Background 

The  structural  optimization  project  consisted  of  finding  the  min¬ 
imum  weight  design  of  9  structure  for  which  certain  limitations  were  posed. 
The  limitations  or  constraints  can  be  of  the  following  form: 
a)  Geometric  -  Maximum  overall  dimensions  of  the  structure 

-  Maximum  thickness,  cross-section,  length,  width, 

etc.  of  an  Internal  member 

-  Maximum  deflection  of  a  member 

-  Maximum  rates  of  deflection 
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b)  Mechanical  -  Yield  criterion 

-  Failure  modes 

-  Fatigue  properties 

-  Natural  frequencies 

-  Buckling  loads 

If  the  structure  can  be  analytically  solved  for  an  Internal 
stress  state  as  a  function  of  the  external  loads  (given)  and  the  dimensions 
of  the  piece  (to  be  used  as  variables)  then  the  problem  becomes  a  mathe¬ 
matical  one:  Find  the  extreme  values  of  a  non-linear  function  of  several 
variables,  subject  to  one  or  several  non-linear  constraints.  The  function 
Is  usually  the  weight  of  the  structure  and  the  variables  are  Its  dimensions. 
The  constraints  can  be  In  the  form  of  equalities  or  Inequalities.  The 
equality  constraints  would  generally  concern  a  total  dimension  which  Is  not 
fixed  but  Is  the  sum  of  a  number  of  Internal  dimensions.  Inequality  con¬ 
straints  are  far  more  conrnon,  they  usually  Insure  that  yield  stresses, 
buckling  loads,  etc.  are  not  exceeded. 

4.2.2  Variational  Method 

There  are  several  methods  of  mathematically  solving  the  problem, 
but  non-linear  programming  Is  the  only  reliable  one.  Graphical  methods 
have  a  very  limited  use  as  they  can  only  be  used  In  two-dimensional 
problems.  Transformation  Into  a  series  of  linear  problems  by  use  of  Taylor 
series  expansions  Is  tedious  and  Inaccurate.  The  use  of  penalty  functions 
transforms  the  problem  Into  an  unconstrained  minimization.  Lagrange 
multipliers  are  an  example;  the  formulation  of  the  problem  with  Lagrange 
multipliers  Is  as  follows: 

Assume  we  want  to  minimize  a  weight  function  W(X^)  where 
(1  *  !,..., N)  are  the  variables.  The  constraints  to  be  satisfied  are 
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are  Fj(X^ )  ■  0  (j  ■  1,...,M).  The  Lagrange  multipliers  (Xj )  are  added  and 
we  form  an  unconstrained  objective  function  (P)  to  be  minimized. 

P  *  W(X1)  +  \i  Fj  (Xl) 

Now  setting  the  derivatives  to  zero  will  find  the  extrema: 

=0  1  =  1,...,N 

=  0  j  =  1,...,M 

The  problem  now  requires  the  solution  of  N  +  M  simultaneous  non¬ 
linear  algebraic  equations  In  N  +  M  unknowns.  Solutions  are  difficult  to 
find  and  are  not  unique,  so  this  method  Is  useless  for  large,  complicated 
problems. 

4. 2.  'a  flan-linear  ’Programming  Methods 

By  far  the  most  useful  methods  for  solving  no»-1 Inear  optimization 
problems  are  searching  techniques.  There  are  many  methods  of  search 
mentioned  In  the  literature  (pattern  search,  directed  search,  Fibonacci 
search,  steepest  ascent  search),  but  basically  they  all  consist  of  search¬ 
ing  the  domain  of  the  variables  until  no  further  improvement  can  be  found 
In  the  objective  function. 

Included  In  the  Appendix  of  [2]  are  the  listing  and  instructions 
for  a  pattern  search  optimization  program  (OPTIM)  by  Martin  Schussel , 
Carnegle-Mellon  University  1968.  The  program  works  In  the  following  way: 

An  objective  function  is  defined: 

P  =  COST  +  z  A(K)  (  F(K)  )2 

where  COST  =  weight  function 
A(K)  =  oenalty  functions 
F(K) 
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-  constraints 


COST  and  F(K)  which  are  functions  of  the  variables  (  X(I)  )  are 

defined  by  the  user  of  the  program  in  a  subroutine  called  CALC. 

The  program  increases  and  decreases  the  variables  and  recalculates 

COST  and  F(K)  until  the  improvement  in  the  objective  function  is  smaller 

-5 

percentagewise  than  10  . 

The  program  is  best  suited  to  handle  inequality  constraints  (less 
than  or  equal)  which  it  handles  in  the  following  way:  If  the  constraint 
becomes  negative  during  the  search  it  is  neglected,  but  if  it  becomes 
positive  it  is  multiplied  by  a  penalty  (some  large  number  A(K) ) .  When  the 
objective  function  is  minimized  the  constraints  will  either  approach  zero 
or  remain  negative. 

The  application  of  optimization  to  design  of  structures  using 
advanced  fiber  composite  materials  adds  ?  jther  facet  to  the  problem. 

The  orientations  of  the  plies  become  variables  as  well  as  the  dimensions. 

In  some  cases,  the  problem  can  be  handled  similarly  to  the  above  procedure 
with  the  orientations  merely  being  additional  variables.  However,  analyti¬ 
cal  equations  for  composite  materials  are  difficult  to  derive  and  are 
usually  not  solvable  in  closed  form.  The  bolt  bearing  problem  was  solved 
using  empirical  equations  which  relate  the  failure  loads  to  the  dimensions 
of  the  piece  and  ply  orientations. 

4.3  TORSION  OF  AN  ELLIPTIC  BAR  -  VARIATIONAL  EXAMPLE 

The  problem  is  to  find  the  values  of  the  major  and  minor  axes  of 
an  elliptic  bar  for  minimum  weight  for  a  given  applied  torsional  moment 
K.  The  weight  is  proportional  to  the  cross  sectional  area 


A  =  irab 


0) 


We  want  to  minimize  A,  subject  to  the  constraint  that  the  allowa¬ 
ble  shear  stress  Is  not  exceeded  at  any  point.  The  maximum  stress  Is  at 
y  »  b,  x  *  0  and  Is  given  by 


_  B  2H 
Tmax  irabz 

If  Ty  Is  the  yield  stress,  the  constraint  equation  becomes 


(2) 


-Ty  *  0 
or  2M  —  irab2ty  s  0 

The  solution  was  then  sought  using  Lagrange  multipliers.  The 
results  were  Incorrect  since  two  more  constraints  must  be  added.  The 
first  one  Is  due  to  the  fact  that  the  stress  formula  is  o*»ly  correct  If 
a  Is  larger  than  b. 
b  <  a 
b  -  a  i  0 


(3) 


(4) 


We  must  also  Insure  that  b  and  a  are  positive  for  the  answers  to 
make  sense.  If  we  Insure  that  b  is  positive,  the  first  constraint  allows 
a  to  be  positive,  thus  the  last  necessary  constraint  Is 

b  >  0  (5) 

We  can  now  change  the  problem  Into  an  unconstrained  minimization 
problem  by  the  use  of  Lagrange  multipliers  and  slack  variables.  The 
solution  Is  to  *1nd  an  extreme  value  of  a  function  F  by  variational 
methods  where  F  Is  given  by 

F  =  irab  +  Ai  (wab2  -  —■  -  y2) 

x2  (a-b-e2)  +VX3  (b  -  &2) 
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where  xlt  x2,  x3  are  the  Lagrange  multipliers,  and  y»  6,  6  are  the  slack 
variables  used  In  Inequality  constraints.  The  derivatives  of  (6)  with 
respect  to  each  variable  yields  the  following  set  of  equations 


=  fb  +  X^irb2  +  X2 
=  ira  +  X|2irab  -  X2  +  X3 
=  irab2  -  3!  -  y2 

Ty 

*  a  —  b  —  B2 


5-  -  0  =  b-42 


#  *  0  ■ 

IS-  *  o  -  -28»2 


■  0  =  -26X- 


Slnce  6=0,  (4)  gives  a=b  (circular  section);  Eqn  (3)  gives  »ab2  = 
—  for  y=0-  Since  a=b,  we  have  ira3  =  —  and  thus 


a  =  [2M/wTy]  W 

The  problem  was  also  solved  using  the  optimization  computer 
program  (OPTTM) ,  First  the  problem  was  attempted  using  only  the  first 
constraint  and  a  minimum  was  found  with  b  about  twice  the  size  of  a. 

This  violated  the  condition  that  a  be  greater  than  or  equal  to  b  for  the 
stress  equation  to  apply.  Next  all  three  constraints  were  used  and  the 
minimum  was  found  to  agree  with  the  analytical  result  (8).  Thus  we 
conclude  that  inclusion  of  all  constraint  relations  is  absolutely  essen¬ 
tial  for  success. 
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4.4  BOLT  BEARING  PROBLEM  -  NON-LINEAR  PROGRAMMING  EXAMPLE 

The  problem  consists  of  finding  the  minimum  weight  of  plates 
loaded  by  bolted  joints.  The  specimen  appears  as  shown  below: 


XL  Is  a  constant 
0  Is  chosen  as  .375  in. 


The  weight  of  the  specimen  Is: 

W  =  P(XL  +  E)S  t  (9) 

The  weight  of  the  material  which  would  be  in  the  hole  Is  In¬ 
cluded  since  It  must  be  wasted.  Empirical  equations  [3]  for  the  three 
failure  modes  found  in  experiments  are  as  follows: 

Tension 

P  s  .69  t(S-D)Ftu  (10) 

where  P  =  applied  load  and  P  cannot  exceed  the  expression  on  the  right. 

The  symbol  Ftu  is  defined  as: 
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where  L  =  *  0° 

plies 

M  =  *  90° 

plies 

N  =  *  ±45° 

plies 

The  constraint  for  this  failure  mode  Is  F(l)  =  P  -  .69  t(S-D)Ftu. 
If  this  quantity  stays  negative  then  P  Is  below  failure  load.  If  It 
Is  near  zero,  failure  In  this  mode  Is  Impending.  The  problem  was 
treated  from  two  different  viewpoints. 

First  the  orientation  percentages  L,  M,  and  N  were  held  constant 
and  the  dimensions  for  mlrlmum  weight  of  the  specimen  were  found.  The 
answer  In  this  case  yields  the  optimum  dimensions  for  the  orientations 
chosen. 

The  second  way  of  treating  the  problem  was  to  leave  the  orienta¬ 
tions  as  variable.  This  way,  both  the  dimensions  and  the  orientations 
were  optimized.  The  results  showed  a  20-30*  Improvement  over  the  fixed 
orientations  case.  The  orientations  chosen  were  those  of  an  experimental 
specimen  which  failed  at  P  =  1020  lb.  The  program  gave  a  weight  reduction 
for  failure  at  the  same  load  and  with  the  same  orientations. 

The  problem  also  included  equations  for  failure  In  two  other 
modes-shear  out  and  bearing.  These  were  the  second  and  third  constraints. 
The  failure  mode  In  a  given  problem  is  found  by  checking  which  of  the 
three  constraints  is  closest  to  zero.  The  constraints  are 


Shear  Out 

P  S  2tEFSU 
F(2)  =  P  -  2tEFsu 


where 


FSU  =  40N 
Fsu  =  9.2 


N  >  .23 
N  <  .23 


(12) 
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Bearing 


P  s  (1  +  .45  |)  Fbu 

F( 3)  =  P  -  (1  +  .45  |)  Fbu 


(13) 


where 

Fbu  =  L  FL  +  (M  +  N)FM 

if  L  *  .25  FL  *  600,  FM  =  30 

L  m 

L  S  .25  F  *  450,  Fn  =  80 

The  results  of  the  program  for  fixed  orientations  are  shown 
in  Table  I. 

Choose  L  =  18.2%  (0°  plies) 

M  =  9.1%  (90°  plies) 

•  N  =  72.7%  (±45°  plies) 

The  orientations  in  Table  I  were  chosen  because  test  data  was 
available  for  a  failed  specimen.  The  specimen  failed  at  1000  lbs.  and  had 
the  dimensions  shown  below: 


P  THK  EDGE  SIDE  COST 

1000  .056  .50  1.0  .044 

The  optimum  dimensions  for  P  *  1000  give  COST  *  .039  (10% 
wieght  reduction). 

Table  II  contains  the  results  of  the  analysis  for  the  case  of 
using  the  orientations  as  variables.  Surprisingly,  the  optimum  orienta 
tions  do  not  change  for  different  loads. 

The  orientations  were  allowed  to  vary  between  .10  and  .80  in 
the  above  procedure. 
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The  results  In  Table  III  were  found  for  variable  orientations 
with  the  possibility  of  eliminating  certain  plies.  There  is  some  doubt 
of  the  applicability  of  'he  equations  for  less  than  10%  of  any  of  the 
plies,  but  it  is  informative  to  see  what  will  happen  in  this  case. 

The  results  for  all  three  cases  are  plotted  together  for 
comparison  In  Fig  3. 

4.5  DISCUSSION 

The  OPTIM  program  has  proven  to  be  very  effective  In  dealing  with 
problems  for  which  analytical  equations  can  be  derived.  The  elliptic  bar 
and  bolt  bearing  problems  treated  above  are  examples. 

The  bolt-bearing  problem  is  unusual  for  composite  materials  in 
that  analytical  equations  are  available  which  allow  us  to  optimize  both 
the  dimensions  and  the  lamina  orientations.  The  equations  are  empirical 
and  therefore  introduce  doubt  as  to  their  accuracy.  There  also  may  be 
ranges  of  dimensions  or  orientation  percentages  In  which  they  are  not 
applicable. 

Table  I  shows  optimum  dimensions  for  varying  load  with  the  ply 
orientations  fixed.  The  case  of  P  =  1000  lb.  shows  a  10%  weight  reduction 
over  the  experimental  specimen.  The  values  of  the  constraints  show  this 
to  be  a  simultaneous  failure  in  tension  and  shear  out.  The  cases  of  P 
(applied  load)  between  3000  lbs.  and  15,000  lbs.  show  failure  in  all 
three  modes  simultaneously.  There  is  no  apparent  pattern  in  the  variation 
of  optimum  dimensions  with  load.  The  weight  Is  seen  to  vary  non-llnearly 
with  load  as  can  be  Inferred  from  Fig  1. 

If  we  allow  the  orientation  percents  to  vary  between  10%  and  80% 
the  optimum  laminate  will  be  found  with  respect  to  both  dimensions  and 
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orientations.  OPTIM  found  values  of  five  of  the  six  variables  which  were 
optimum  for  all  loads  considered.  Only  the  total  thickness  changed  and  It 
varied  linearly  with  load.  This  situation  forced  the  weight  to  vary 
linearly  with  load  also  as  seen  in  Fig  2.  For  each  load,  the  specimen 
exhibited  failure  In  tension  and  shear  out  simultaneously  with  bearing 
failure  not  being  a  factor.  The  orientations  chosen  for  each  load  were 
L  -  73%,  M  =  17%,  N  =  10%.  The  fact  that  N  was  brought  to  the  minimum 
of  its  range  led  to  the  results  in  Table  3  where  N  was  allowed  to  vary 
between  0%  and  80%.  The  results  are  similar  to  those  In  Table  2  except 
that  N  goes  to  zero  with  L  and  M  increasing  proportionately.  As  noted, 
the  equations  may  not  apply  for  N  less  than  10%,  but  the  results  Indicate 
that  the  ±45°  laminae  are  of  little  benefit  In  the  bolt  bearing  specimen. 
The  thickness  and  weight  vary  linearly  with  load  as  In  the  previous  case. 
Ail  three  cases  are  plotted  in  Fig  3.  The  variable  orientation  case  shows 
an  improvement  on  the  fixed  case  of  between  30%  and  100%,  with  the  case 
for  N  =  0  about  15%  better  still. 

The  results  show  a  useful  and  convenient  relationship  for  design. 
The  designer  is  given  the  optimum  orientations  and  side  and  edge  distances 
and  he  merely  chooses  his  thickness  to  suit  the  load  which  must  be  carried. 
The  enpirica  nature  of  the  equations  suggests  that  experiments  should  be 
r*.n  to  verify  tte  derived  results  before  putting  them  into  use  as  a  design 
criterion. 
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Table  1:  Coupon  Weights  for  Fixed  Orientations 


Table  2:  Coupon  Weights  for  Variable  Orientations 


Table  3:  Coupon  Weights  Allowing  Orientations  to  be  Eliminated 


WEIGHT  (lbs 


a. 4 


WEIGHT  vs.  LOAD 
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10 
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FIGURE  3:  SUM1ARY  OF  WEIGHT  VS.  LOAD  R[ 


CHAPTER  V 


BOUNDARY- INTEGRAL  EQUATION  SOLUTION  METHODS 

5.1  TWO  DIMENSIONAL  ISOTROPIC  BOUNDARY-INTEGRAL  EQUATION  METHOD 

5.1.1  Introduction 

The  boundary- integral  equation  method  is  a  new  tool  for  the 
solution  of  many  problems  in  solid  mechanics.  The  method  has  significant 
advantages  over  the  finite  element  method.  Numerical  approximations  are 
not  made  over  the  field  but  over  the  surface,  thereby  increasing  accuracy. 
The  dimension  of  the  problem  is  reduced  by  one,  allowing  many  problems  too 
large  for  today’s  computers  co  be  solved.  Both  of  these  features  permit 
the  analyst  to  obtain  highly  refined  data  in  the  vicinity  of  stress  concen¬ 
trations  such  as  near  cracks  and  notches. 

Important  to  the  user  of  the  boundary- Integral  equation  (BIE) 
method.  Is  the  ease  of  data  preparation  and  the  rapidity  of  solution.  The 
BIE  method  utilizes  a  numerical  solution  of  a  boundary  constraint  equation. 
This  equation  relates  all  of  the  surface  displacements  to  all  of  the  sur¬ 
face  tractions.  The  analyst  specifies  how  he  wishes  to  subdivide  the  sur¬ 
face  and  specifies  the  boundary  data;  all  well-posed  problems  are  accepta¬ 
ble  Including  mixeu-mixeu  problems.  The  geometry  Is  completely  general  and 
may  be  multiply-connected.  Once  the  surface  solution  is  found  the  stresses 
may  be  generated  at  any  points  that  the  analyst  desires  on  the  Interior 
of  the  region. 

The  BIE  method  has  been  widely  adapted  to  many  problems  in  solid 
mechanics,  as  can  be  seen  by  the  literature  [1-8].  The  purpose  for 
presenting  It  In  this  report  Is  twofold.  First,  the  tool  is  being 
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developed  by  the  CMU  team  for  two  dimensional,  anisotropic  problems  for 
use  In  several  on-going  research  efforts.  Second,  It  Is  desirable  to 
make  the  method  available  to  the  widest  possible  group  of  users.  Listings 
of  both  the  Isotropic  and  anisotropic  computer  programs  are  therefore 
contained  In  this  Chapter. 

5.1.2  Review  of  the  Isotropic  Boundary -Integral  Equation  Method 

Two  elements  are  required  for  the  development  of  the  boundary 
constraint  equation  of  the  BIE  method.  The  first  Is  a  reciprocal  relation 
between  two  solution  states  (Betti's  reciprocal  work  theorem);  the  second 
Is  a  fundamental  solution  or  influence  function  (Kelvin's  problem  of  a 
point  load  In  an  infinite  body).  The  development  herein  follows  that 
used  in  classical  potential  theory  (see,  for  example,  [9-13]). 

The  solution  to  Kelvin's  problem  consists  of  displacement  vectors 
In  each  of  the  x^  directions  due  to  concentrated  loads  applied  In  the  x^ 
directions.  These  solutions  are  denoted  by  the  displacement  tensor  U^; 
the  appropriate  forms  can  be  found  in  the  literature  [1-10].  In  two 
dimensional.  Isotropic,  elastostatlcs  this  tensor  Is 

U1j(P,Q)  =  -  [Cn(l/r(P,q))  +  ry^/BirpO-v)  (1) 

In  (1)  the  distance  between  the  point  of  load  application  P(x)  and  the 
field  point  Q(x)  Is  denoted  r(P,Q);  u  and  v  are  the  shear  modulus  and 
Poisson's  ratio.  The  derivative  of  r(P,Q)  In  the  x^  direction  Is  denoted 
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A  second  tensor  is  required  for  the  use  of  the  reciprocal  work 
theorem:  the  tractions  corresponding  to  the  on  the  physical  surface 
3R  of  the  body.  These  tractions,  T^,  are  obtained  by  using  Hooke's  law 
and  the  definition  of  the  traction  vector 

l1  =  °ijnj  =  u[(2»/l-2»)iV.|(«1J  +  u1jt«j,i]  "j  M) 

Utilizing  (1)  and  (4)  the  traction  tensor  is  found 
Tij  =  {3r/3n[(l-2v)6ij.+2rtir^]+(l-2v)(nirjj.-njr }/4ir(l-v)r(P,Q)  (5) 

After  some  amount  of  manipulation  of  the  reciprocal  work  theorem 
and  letting  P,Q  be  boundary  points  (P  not  at  a  comer)  the  following 
boundary  constraint  equation  can  be  found 

u.(P)/2+  /u.(Q)T..(P,Q)dS(Q)  =  /t.(Q)U..(P,Q)dS(Q)  (6) 

1  3R  **  3R  J  1J 

In  (6)  u.,tj  are  the  displacements  and  tractions  on  the  physical  surface 

3R  for  the  problem  to  be  solved. 

The  numerical  solution  to  (6)  is  obtained  by  discretizing  the 
boundary  and  boundary  data  in  some  suitable  fashion.  Presently  the 
displacements,  u. ,  and  tractions,  t^,  are  taken  as  piecewise  constant 
over  each  of  N  boundary  segments.  Work  Is  well  underway  to  use  linear 
variations.  The  boundary  segments  are  assumed  to  be  flat  in  the  programs 
used  by  this  investigator.  This  allows  for  a  completely  general  computer 
program  for  arbitrary  surface  shapes.  When  the  approximations  are  made 
(6)  becomes 

N  N 

u.(Pm)/2  +  I  u.(Qn)/T. . (Pm.Q) dS(Q) =  Z  t.(Qn)/U. .(Pm.Q)dS(Q) 

1  n=l  J  3Rn1J  n=l  J  3Rn1J 


(7) 


Eq.  (7)  can  be  written  in  matrix  form  as 

(1/2[I]  +  [AT])  {u)  =  [AU]  {t}  (8) 

where  [I]  is  the  identity  matrix;  [AT]  and  [AU]  are  coefficient  matrices 
from  the  integrations  in  (7):  These  integrals  are  calculated  analytically 
in  the  program  by  specifying  the  coordinates  of  the  ends  of  the  boundary 


segments . 

When  the  boundary  data  for  a  well -posed  problem  are  specified 
then  2N  quantities  In  (8)  are  known  and  2N  quantities  are  unknown. 

Standard  reduction  schemes  are  employed  to  solve  for  the  unknowns.  After 
the  entirety  of  the  surface  data  Is  formed  the  interior  stresses  at  any 

selected  points  are  found  by  the  quadrature  relation 

N  ft 

«i j(p)  *  I  uk(Qn)  ASk1j(p,Qn)  -  E^  tk(Qn)  ADkij(p,Qn)  (9) 

The  tensors  AS^  and  ADkij  are  calculated  as  indicated  in  [7].  A  proced¬ 
ure  for  calculating  the  stress  tensor  at  the  surface  Is  accomplished  using 
surface  displacements  and  tractions  as  discussed  in  [8], 

5.1.3  Uee  of  the  Isotropic  Computer  Program 

The  Isotropic  version  of  the  program  is  limited  to  linear,  iso¬ 
tropic,  homogeneous,  elastic  problems  with  known  material  constants  .t(or  G, 
shear  modulus),  defined  as  FMU  in  the  program,  and  v,  defined  as  POISN,  or 
PR,  in  the  program.  The  user  has  available  four  operating  modes  for  the 


program: 

Boundary  Solution:  This  capability  is  the  first  step  always  for 
each  problem  as  It  solves  (8)  for  all  unknown  boundary  data  In  terms  of 
specified  boundary  conditions  and  geometry.  The  entire  set  of  boundary 
data  may  be  output  on  punched  cards  (see  next  section). 
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Interior  Solution:  Upon  completion  of  the  boundary  solution 
the  analyst  may  request  stress  solutions,  using  (9),  at  as  many  Interior 
points  he  desires  by  specifying  their  number  and  location. 

Boundary  Solution:  The  boundary  stress  solution  is  based  on  the 
same  finite  difference  result  discussed  in  the  Appendix  of  [8].  The 
solution  is  obtained  at  a  specified  boundary  segment  from  the  known  or 
calculated  surface  tractions  and  the  calcinated  tangential  derivative  of 
displacements.  The  means  for  calculating  the  tangential  derivative 
is  discussed  in  greater  detail  in  the  next  section. 

Restart:  By  reading  the  entire  set  of  boundary  data  the 
program  may  solve  directly  for  interior  or  boundary  stresses. 

5. 1.3.1  Dimension  Statements 

The  current  version  of  the  program  (See  Section  5.1.5)  admits 
up  to  two  degrees  of  symmetry  of  geometry  and  boundary  conditions.  The 
program  is  limited  to  a  total  of  80  boundary  segments  (320  with  symmetry). 
To  increase  the  size  of  the  program  change  the  following  cards, 

COMMON  /  ARRAY 1  /  ••• 

COMMON  /  ARRAY 2  /  • • • 

in  the  various  routines;  also  the  following  sequence  numbered  cards 
should  be  changed 

10060  20035 

10065 

10075  50005 

15050 

15200 

The  program  is  limited  to  200  interior  solution  points,  COWON  /  ARRAY3  / 
and  to  50  surface  points,  COMMON  /  ARRAY4  /  . 
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An  1108  assembler  language  routine  for  calculating  time  is 
Attached  for  1108  users.  Other  users  must  supply  a  similar  subroutine 
to  obtain  a  time-breakdown  chart  for  each  solution;  if  not  available, 
insert  a  dummy  subroutine,  SUBROUTINE  TIME  (T) . 

5. 1.3. 2  Definition  of  Key  Parameters ,  Matrices 

The  key  parameters  are  described  in  cards  15060  -  15115,  in 
SETUP.  These  parameters  govern  geometry  (NSE6,  NSYM,  NNOD),  execution 
options  (IPUNCH,  ISTRS,  IBDY),  and  particular  stress  solutions  (NPT, 
NBDYP).  The  first  card  read  is  a  TITLE  card  followed  by  the  control 
numbers,  read  by  cards  15120  and  15125. 

The  temporary  array  NODE  (1,0)  stores  the  two  node  numbers 
associated  with  each  segment  number  and  is  read  by  card  15130.  The 
temporary  array  XYZM  (I,J)  reads  in  the  x1 ,  x?  coordinates  of  each  of 
the  nodes  by  card  1 5135. 1  The  meterial  constants  FMU,  P0ISN  are  then 
read  by  card  15140. 

At  this  time  the  program  merges  the  geometric  info.Tation 
to  form  the  permanent  geometric  array  XYZ  (Segment  Number,  Node  Number, 
Coordinate  Number).  If  NPT  f  0,  the  coordinates  of  the  Interior  stress 
points  are  read  in  by  card  15225.  If  NBDYP  f  0,  three  segment  numbers 
are  read  by  card  15240.  The  three  nunbers  in  NBDY  (I,J)  have  the 
following  meanings: 

NBDY  (Segment  No.,  1)  =  Segment  number  for  which  stress 

calculations  is  to  be  done. 

^ Only  the  geometry  for  the  basic  syronetric  part  is  read  in.  If  NSYM  f  0, 
the  program  assimes  one  degree  of  symmetry  (y~0  axis),  or  two  degrees 
of  symmetry  (y=0  axis,  then  x=0  axis)  according  to  NSYM. 


NBDY  (Segment  No.,  2)  *  Segment  nurioer  for  the  "rear"  point 

In  calculating  AU/AS. 

NBDY  (Segment  No.,  3)  *  Segment  number  for  the  "forward" 

point  In  calculating  aU/aS. 

NOTE:  The  sequence  of  numbers  In  NODE  and  NBDY  Is  the  "rear"  nunber, 
then  the  "forward"  nunber.  The  positive  -  s  direction  Is 
always  taken  such  that  the  material  Is  always  on  the  left. 

S.l.3.3  Boundary  Conditions 

The  current  version  of  the  program  uses  a  NAMELIST  read 
(Fortran  IV)  statement.  The  procedure  Is  to  precede  and  close  the 
block  of  boundary  data  with  control  cards  In  the  following  way 
-$  BDYCON 
DATA 
-$  END 

See  standard  references  for  formats  for  the  data  block. 

NOTE:  When  NSYM  =1,0  the  solutions  admit  a  rigid  body  motion  In 

the  unconstrained  dlrectlon(s)  (x,y).  A  displacement  freedom 
Is  fixed  by  letting  LDC  for  that  freedom  be  set  to  “2". 

All  boundary  conditions  are  initialized  to  zero  and  LDC  Is  Initialized 
to  "1".  All  x-dlrection  data  Is  stored,  then  y-dlrectlon  data  Is  stored: 


1,  NSEG 

NSEG  +  1,2*  NSEG 
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etc.  LOC  =  1,  means  traction  boundary  conditions  for  the  given  segment 
and  direction.  LDC  =  2  means  displacement  boundary  condition  for  given 
segment  and  direction. 


5.1. 3.4  Input  Cards: 

Information 


No.  Cards 


Title 

Control  parameters 
NODE  (NSEG.2) 

XYZM  (NN0D.2) 

FMU,  POISN 
Boundary  Conditions 
PITN  (NPT.2) 

NBDY  (NBDYP.3) 


1 

1 

1  +  (NSEG/12) 
1  +  (NNOD/8 
1 
? 

1  +  (NPT/8) 

1  +  (NBDYP/8) 


5.1.3. 5  Example  Problem 


NODE:  —1-2-2— 3— 3— 4— 4— 5— 5— 6— 6— 7— 7— 8— 8—1 


XYZM: 

FMU,  . 
POISN* 

PTIN: 

NBDY: 


-0000-2000-0000- 1000-0000-0000- 1000-0000- 2000-0000- 2000- 1 000- 
-2000-2000-1000-2000 

—  .1153846E+08 - .30000 

-0500-1000-1000-1000-0750-0750 
—7 — 7—8 — 7—6 — 7 — 6 — 5—6 


NAMELIST: 

-1C0N(5)  =  1.0E+6,  TC0N(6)  =  1.0E+6, 


-LDC(l)  =  2,  LDC ( 2 )  =  2,  LOC(ll)  =  2, 
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5.1.5  Listing  for  Isotropic  Boundary- Integral  Equation  Computer  Program 


MAIN  PROGRAM  —  INITIALIZES  DATA  -  CALLS  SUBROUTINE* 

Common  ✓  arravi  /  xyzuoo»2#2>#  ucon<20»>#  tcon(?oo>»  ldc(?oo> 
Common  /  array2  /  BvAlIzoo) 

common  /  matcon  /  fmu#  p  isn#  pi#  pi#  pp#  P3»  P4»  ps 
common  ✓  CONTS1  /  NSE6#  NSYM#  NTDTAL#  NSIZE»  NPT#  N3DYP 
COMMON  ✓  C0NTR2  /  T1TL(16>#  IPUNCH#  ISTRS#  1PDY 

Common  ✓  timers  /  y  uoj 

The  DIMENSIONS  OF  THE  FOLLOWING  arrays  ARE  PRObLEM  nEPENDENT 

DIMENSION  C< 160# 160) 

DOUHLF  PRECISION  RHS( 160) 

Pi  =  3.141592&5 
05  CONTINUE 

DO  10  I  :  1 #200 
UCON(I)  s  0. 

TCOn(I)  =  0. 

10  BVAl.U)  =  0. 

CALI.  TIME  <  Til)  ) 

DO  90  I  =  2*10 
20  Till  s  0. 

CALI  SETUP 

IF  (IBDY.NE.O)  GO  TO  30 
Cali  rvsolu  (C»  rhS) 

30  CALI  INSOLU  <C) 

CALL  rtDYSTR  (C) 

CALCULATE  TIME  CHART 

T(2I  =  (T(2>-ni>  )*10**<-3) 

T(4)  =  (TI4I-TC3) )*10**(-3) 

T(6»  =•  (T<6)-T(5) )*10**(-3) 

T(8)  =  (T(8)-TC7))*10**<-3) 

T(ln)  =  (T(10)-T(9))*10**(-3) 

WRITE  (A. 2000)  TITL 
WRITE  <S»2lO0) 

WRITE  (A#?2nn>  T  (2)  *  T(m)  »  T  ( 6)  »  Kn).  T(lO> 

GO  TO  OS 
STOP 

1000  FORMAT  (  16AS) 

2000  FORMAT  <1H1»  16AS) 

9ioo  Format  c  ?ih  time  breakdown  chaht  //) 

9200  FORMAT  C  SX  15HTIME  FOR  StTUP  F12.7#  9X  7HSECOWDS  // 

1  SX  15HTIME  FOR  DEUNT  F12.7#  2X  7hSECO\lDS  // 

2  SX  15HTIME  FOR  SOLVEH  F12.7#  9X  7HSEC0NQS  // 

3  SX  15HTIME  FOR  INSOLU  FI 2.?#  2X  7HSECOMDS  // 

4  SX  IhHTIME  FOR  BDYSOL  F12.7#  2X  7HSECOMDS) 

END 


20*10000 

20*10005 

20*10010 

20*10015 

20*10020 

20*10025 

20*10070 

20*10035 

20*10040 

20*100**  j 

20*10050 

20*10055 

20*10060 

20*10065 

20*10070 

20*10075 

20*100*0 

20*100*5 

20*100°0 

2n*100°5 

20*101*0 

20*10105 

20*10110 

20*10115 

20*10120 

20*10125 

20*10130 

20*10135 

20*10140 

20*10145 

20*10150 

20*10155 

20*10160 

20*10165 

20*10170 

20*10175 

20*10100 

20*10185 

20*10190 

20*10195 

20*10200 

20*10205 

20*10210 

20*10215 

20*10220 

20*10225 

20*10230 

20*10235 

20*10240 

20*10245 


o  o  o 


Subroutine  setup 

Common  /  ARHAYl  /  XyZ'100»?»2)  »  UC0n(200)»  TCONtpOO).  LUr(200) 
COMMON  /  ARRAY2  /  BvAl(200> 

common  /  arrays  /  ptin(iou.2> 

Common  /  arrayu  /  nhdy(50»3) 

Common  /  MATCON  /  F*U#  poxsn#  Pi#  Pi#  P2»  P3»  P4*  P5 
COMMON  /  TIMERS  /  TIM(  6) 

COMMON  /  COMTR1  /  NSEG.  NSYM#  NTOTAl#  NSIZE#  NPT*  NBDYP 
COMMON  /  CONTK2  /  T1TH16)#  IPUNCM#  ISTRS.  IBOY 
NmMPLIST  /  HDYCON  /  UCON#  TCON#  LUC 
DIMENSION  NODE ( 10U ♦? ) ♦  XYZM(1G0.2) 

EQUIVALENCE  (NODE#  LOO#  (XYZM#  (ICON) 

C 

C  NSFG  =  NUMRER  OF  SEGMENTS  ON  THE  BOUNDARY 

C  NSYM  =  NtlMHFR  OF  DEGREES  OF  SYMMETRY  STARTING  WITH  Y#  THEN  X 
C  NNOD  =  NUMRER  OF  BOUNDARY  NODES  CONNECTING  BOUNDARY  SEGMENTS 

c  i punch  =  i  ~  the  boundary  solution  will  be  punched  out 

C  ISTRS  =  O.  PLSTRN  —  ISTRS  =  1#  PLSTRS 

C  IF  IBDY.EO.O  —  BOUNOMRY  DATA  STORED  IN  COMMON 

C  IF  IBOY.NF.O  — -  BOUNDARY  DATA  READ  IN  FROM  CARDS  ADDED  TO  END 

C  OF  THE  UATA  DECK 

C  NPT  =  NUMBER  OF  INTERIOR  SOLUTION  POINTS  FOP  STRESS  SOLUTION 
C  NBOYP  =  NUMBER  OF  bOUNOAnY  POINTS  FOR  STRESS  SOLUTION 
C 

READ  (5.1000)  TITL 

REAn  (5.1100)  NSEG#  NSYM.  NNOU#  IPUNCH#  IsTRS#  IpDY*  NPT#  NBDYP 
REAn  (5.1200)  ( (NODE ( I # J) # J=l #2) # 1=1 »NSEG) 

READ  (5.1300)  ((XYZM(I»j),J=I»2)ii=liNN0n> 

REAn  (S.luOO)  FMU#  POISn 
WRITE  (A. 2000)  TITL 

WRITE  (A. 2100)  NSEG.  NSYM.  NNOD#  IPUNCH,  ISTRS#  TBDY#  NPT#  NBDYP 
WHITE  (A. 2200)  ((N00E(I»J)»J=1»2)»I=1»NSFG> 

WRITE  (A. 2300)  ((XY7M(I.J)#J=L#2)#I=1.NN0D) 

WRITE  (A.2400)  FMU#  POISN 
NSI7E  =  2  *  NSEG 

00  10  I  =  1 »NSEG 

DO  10  J  =  1.2 

00  10  K  :  1»2 

N  =  NODE ( I • J) 

10  XYZ( I » J.K )  =  XYZM(N.K) 

00  »0  I  :  1.200 
UC0n(1)  =  0. 

20  LDC(I)  =  l 

READ  (5.B0YC0N) 

IF  (NPT.EQ.O)  GO  TO  30 

REAn  <S.)500)  (CPTINCI.J)»J=1.2).I=1.NPT) 

WRITE  (A. 2500)  ((PTIN(I»J)*J=1.2)»I=1»NPT) 

30  IF  (NBDYP.EQ.O)  GO  TO  40 

REAn  (S.1600)  ( (NBUY(I.J).J=1.3).I=t.NBDYP) 

WRITE  (A. 2600)  ( (NBOY ( I . J) . J=1 .3) . 1=1 .NBOYP) 

40  CONTINUE 

NFAC.  =  2**NSYM 
IF  (NSYM.EQ.O)  nFAC  =  1 
NTOTAL  =  NSEG  *  NFAC 

CALCULATE  NEEDED  MATERIAL  CONSTANTS  17Q 


2D*15000 

20*15005 

20*15010 

20*15015 

20*15020 

20*15025 

20*15030 

20*15035 

20*15040 

20*15045 

20*15050 

20*150*5 

20*15060 

20*150A5 

20*1*070 

20*15075 

20*15060 

20*15065 

20*150°0 

20*15095 

20*15100 

20*15105 

20*15110 

20*15115 

2D*15120 

20*15125 

20*15130 

20*15135 

2D*15140 

2D*15ia5 

20*15150 

20*15155 

20*15160 

20*15165 

2D*15170 

2D*15175 

20*15160 

20*15165 

20*15190 

2D*151°5 

20*15200 

2D*  IV' 2  05 

2D*lSi.  V 

20*1521 

20*15220 

20*15225 

20*15230 

20*1*235 

2D*152**0 

20*15245 

2D*15250 

20*15255 

20*15260 

20*15265 

20*15270 

20*15275 

20*15260 


u  o  u 


IF  <ISTRS.EO.il  POISN  =  POISN/  l).*POISN)  20*152*5 

PI  =  1./<m.*PI*FvU*<1.-P01SN> >  20*lf'2°0 

P<!  =  3.-4.*P0ISN  20*15295 

P3  =  1. /<m.*PI*(1. -POISN) )  20*15300 

P4  =  l.-?.*P01SN  20*15305 

CALI  TImF  C  T1MC2)  )  20*15310 

PETuRN  20*15315 

1000  format  <i6AM  20*15320 

1100  Format  iiuisi  20*15325 

20*15350 

******  caution*****  formats  problem  dependent  *****  caution  ******  20*15335 

20*15340 

1200  format  <2413)  20*15345 

1300  format  <i#*fs.3)  20*15350 

i40P  format  <fi5.7*  fio.>»)  20*15355 

1500  FORMAT  <lfcF5.3)  20*15360 

1600  format  IP4I3)  20*15365 

2000  format  uhi,  ioxr  I6A5)  20*15370 

2100  FORMAT  <//  1015)  20*15375 

2200  Format  <//  6(3X  21311  20*15360 

2300  FORMAT  <//  4 (3X  2Fl0.b>)  20*15365 

2400  FORMAT  <//  5X  615.7,  FlO.b)  20*153^0 

2500  FORMAT  <//  4C3X  PFlO.ol)  20*15395 

2600  FORMAT  <//  6(3X  3I3)1  20*15400 

END  20*15405 


171 


non  nnn  non  non  non 


SuOwoilTTNP  fiVSOUJ  (C#  RhS) 

common  /  arrayi  /  xyz(iuo»?*2)*  mcow(2Go) #  rcoN(?oO>*  loc(2oo> 
common  /  array?  /  bval(20u) 

Common  /  MATC0N  /  FMU»  POISN#  PI#  pi#  P2#  P3»  P4,  P5 

common  /  contki  /  nseg*  nsym#  niotal*  nstze*  npt.  nboyp 


COMMON  /  C0NTR2  /  TITL(16)#  I  PUNCH*  ISTR6#  1B0Y 
COM rfi/'M..  /  TIMERS  /  TIM  (10) 

0 1 MENS T (>,;>.**  (200)#  PXYZ(2)»  C(NSI7E*NSIZE) 
EQUIVALENCE  \A*  ICON) 

DOIMLE  PRECISION'  RHS(NSlZE) 


NM AX  =  9  *  NSE6 


WRITE  (6*2000)  TI1L 
IF  (ISTRS.Eo.O)  WRITE  (6*2050) 
IF  (ISTRS.EQ.l)  WRITE  (6*2060) 
WRITE  (6*2100) 


WRITE  THE  STARTING  BOUNDARY  CONDITIONS 


DO  10  I  =  1#NSE6 
J  =  I  ♦  NSEG 
DO  IS  N  =  1*2 

15  PXV7(N)  =  (XYZ(I*1»N)  ♦  XYZ(I#2»N) )/2# 

10  WRITE  (6*2200)  1*  UCON(l).  UCONCJ)#  TCON(I>*  TCON(J)» 
l  LUC(I)#  LDC(J).  PXYZ(I).  PXYZ(?) 

DO  20  I  =  1 »NMAX 
RHS ( I )  s  0.000 
IF  (LOC(I)#F0.1)  GO  TO  30 
BVAI  (I)  =  FMIJ  *  UC0N(1) 

SO  TO  20 

30  BV.'I  (I)  =  TCON(l) 

20  CONTINUE 


CALCULATE  OFLU.  DELT#  RHS 

CALI  TImF  (  TIM( 3)  ) 

CaLi  DFLTNT  (C*  RHS) 

CALI.  TIME  <  TlM(u)  ) 

WRITE  (6*3000)  ((C(I*J)*J=:1»N$I2E)*i:i*nSIZE) 


write  WIGHT  hand  SIDE  VECTOR 

WRITE  (R.2300)  TITL 
DO  ufl  I  :  l»NSEO 
J  =  I  ♦  NSEG 

40  WRITE  (6*2400)  I*  RrtS(I)»  PHS(J) 

SOLVE  SYSTFM  OF  EQUATIONS 

CALI  TIME  (  T1M(5)  ) 

CALI  SOLVER  (NMAX*  RHS*  A#  C) 

CALI  TIMF  (  T1M16)  ) 


FILL  Im  IlCON*  TCON  - —  PRINT  RESULTS 

DO  SO  I  =  l » UMAX 
if  (LUC(I)  •EQ.l)  GO  To  60 

tcon(I)  s  emu  *  a(I) 


20*20000 

20*20005 

20*20010 

20*20015 

20*20020 

20*20025 

20*20)30 

20*20035 

20*20040 

20*20045 

20*20050 

20*20055 

20*20060 

20*20065 

20*20070 

20*20075 

20*20000 

20*20025 

20*20q°0 

20*20q°5 

20*20100 

20*20105 

20*20110 

20*20115 

20*20120 

20*20125 

20*20130 

20*20135 

20*20140 

20*20145 

20*20150 

20*20155 

20*20160 

20*20165 

20*20170 

20*20175 

20*20120 

20*20105 

20*20190 

20*20195 

20*20200 

20*20205 

20*20210 

20*20215 

20*20220 

20*20225 

20*20230 

20*20235 

20*20240 

20*20245 

20*20250 

20*20265 

20*20260 

20*20265 

20*20270 

20*20275 

2O*202A0 


UCOm(I)  =  (l./FMU)  ♦  uVALtlJ  20*20265 

60  TO  BO  20*20290 

60  TCOn(I)  =  BVAL(I)  20*20295 

UCOm(I)  =  ACT)  20*20300 

SO  CONTINUF  20*20305 

WHITE  (6.POOO)  TITL  20*20310 

IF  ( ISTRS.EO.O)  WRITE  (6*2050)  20*20315 

IF  (ISTRS.EO.l)  WHITE  (6*2060)  20*20320 

WHITE  (6#?100)  20*20325 

00  70  I  :  1 *  NSEG  20*20330 

J  =  I  ♦  NSEG  20*20335 

00  ho  N  =  lt2  20*20340 

SO  PXYZ(N)  =  (XYZ(lfflffN)  *  XYZ(I*2»N))/2.  20*20345 

70  WHITE  (6*7200)  I*  UCON(  I ) »  UCON(J)»  TCON(I).  TCOn(J)»  20*20350 

I  LOC ( I ) *  LDC(J).  PxYZ(l),  PXYZ(?)  20*20355 

IF'  ( IPIJNCH.ES. 0)  RETURN  20*20360 

00  120  I  :  1.NSE6  20*20365 

J  =  I  ♦  NSE6  20*20370 

120  WHITE  (7*2500)  1*  UCON(I)»  UCON(J)  20*20375 

00  130  I  =  IffNSEG  20*20360 

J  5  I  +  NSEfi  20*20305 

130  WHITE  (7*2500)  I  »  TCONdi*  TCON(J)  20*20390 

RETURN  20*20395 

?ooo  format  hhi.  isas  //  iox  19hboundary  conditions)  20*20400 

2050  FORMAT  (  /  4  (  18H  P|_AN£  STRAIN  ****  )  )  20*20405 

2060  FORMAT  (  /  4<  18H  PLANE  STRESS  ****  )  )  20*20410 

9100  FORMAT  (//  ux  4H  SE6  7X  2HU1  IOX  2Hll2  IOX  2HT1  lnx  2HT2  nx  4HLDC1  20*20415 

1  6x  4HL0C2  «X  2HX1  IOX  2HX2  ✓/)  20*20420 

2>?00  FORMAT  (?X  15*  2F12.8.  2F12.0*  6X  Il»  11X  11.  2Fl2.6)  20*20425 

9300  FORmAT  ( 1 Hi »  16A5  //  IOX  22HR1GHT  Hand  SIDE  VECTOR  //)  20*20430 

9400  FORMAT  (SXff  15*  2E15.8)  20*20435 

9500  FORMAT  (  110.  2E30.10)  20*20440 

3000  format  (//✓  (  2(8Fi?.b  /)  ✓/)  )  20*20445 

ENO  20*20450 
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noo  non  nnnooon 


SUHPOUTTNF  OELINT  <n.  RriS) 

COMMON  /  ARHAY1  /  XtZ<lOO»2»?> »  UCOu<200)»  tcon(2oo>.  loc<2oo) 
COMMON  /  ARRAY2  /  Bv/Ai_(?0(j> 

Common  /  matcun  /  Fmj»  poisn.  pa.  pi.  P2.  P3»  P4.  ps 
common  /  C0NTR1  /  NSEG.  NSYrt*  NTOTAL*  NSIZE.  NPT.  NHOYP 
COMMON  /  C0NTR2  /  TlTt-(16>»  IHUNCH.  ISTkS»  1BOY 
OIMFNSION  A{?)»  El <2) »  E2(2>»  P<2>»  X(2.2>.  Rl(2)»  H2<2> 
OIMFNSION  ISYMC2)  »U<2»?>  »T(2»  2 > #G (NSlZE.MSlZE) 

OOUHLF  PRECISION  KHS(nSIZE)#  Xll#  XI2»  XT3*  XI4»  Xl5 
00  10  I  =  1 .NSIZE 
00  10  J  =  l.NSIZE 
10  G( I • j)  =  0. 

00  20  M  =  lr NTOTAL 

IFLG  =  n 

JFLG  -  0 

Ml  =  (M-D/NSE6 

M2  =  M  -  Ml*NSE6 

M3  =  M?  ♦  NSFG 

IF  (L0C<M?).E0.1.ANi).ARS<bVAL<M2> >  .LT.l.fl.AND. 

1  L0C(M3)  .E0.1.AND.ABS(tlVALCM3)  i  .LT.1.0)  IFLG  =  1 

IF  (L0C(m?).E0.2«ANO«ABS(BVAL<M2)) •LT.l.OE-OR.AND. 

1  LOC<M3).Eu«2.ANO.ABS<bVAL<M3>>.LT.1.0L-OB)  JFLG  =  1 

COMPUTF  symmetry  coefficients  USING  Y»  THEN  X 

IFLAG  r  i 
00  16  K  :  1.2 
J  =  3  -  X 

I  =  (M-l >/(NSEG*((2**J>/2> ) 

ISYm(K)  =  <-I)**I 
IF  (I.Fo.lT)  ISYM(K)  =  1 
16  IFLAG  =  IFLAG  *  ISYm(K) 

00  10  J  :  1.2 
IF  (IFLAG. GT.U)  GO  TO  2S 
X(1.J>  =  XY7(M2.?*J>  *  ISYM(J) 

X ( 2. J)  =  XYZ(M2»1»J>  *  ISYM(J) 

GO  TO  3S 

25  X(l.J)  =  XY7CM2. i » J>  *  ISYM(J) 

X(2. J)  =  X YZ(M2»2»J)  *  1SYM(J) 

35  CUNT  INI  IF 

OEFINE  DIRECTION  OF  THk  LINE  SEGMENT  F2  =  A(J>  /  A*«AG 

30  A ( J)  =  x(7»J)  -  X(1.J> 

AhA R  =  S4RT  ( A ( 1 I **2  ♦  A<2>**2) 

00  A3  I  =  1.2 
E2(l)  =  A(I) /AMAG 
J  =  3  -  T 

33  El(.l)  =  F?Cl)  *  (-l)**(o+l) 

CALCULATF  THE  ANGLES  T!  *No  T?  AnO  ThE  DISTANCE  0 

00  20  N  z  l.NSEG 
00  15  J  =  1.2 

P(J)  =  (XTZ(N.l.J)  XY7(N»2.J))/C. 

Kl(j)  =  X(l.J)  -  P»vi)  174 

R2(.l>  =  X (2. J)  -  P(o> 


20*25000 

20*25005 

20*25010 

20*25015 

20*25020 

20*25025 

20**5030 

20*25035 

20*250*0 

20*250**5 

20*25050 

20*25055 

20*2*060 

20*25065 

20*25070 

20*25075 

20*250*0 

20*250R5 

20*250*»0 

20*250°5 

20*25100 

20*251*5 

20*25110 

20*25115 

20*25120 

20*25125 

20*25130 

20*25135 

20*25140 

20*251*5 

20*25150 

20*25155 

20*25160 

20*25165 

20*25170 

20*25175 

20*25100 

20*251A5 

20*251*0 

20*25195 

20*25200 

20*25205 

20*25210 

20*25215 

20*25220 

20*252*5 

20*25230 

20*25235 

20*252*0 

20*25245 

20*25250 

20*25255 

20*25260 

20*25265 

20*25270 

20*25275 

20*25260 


ci  a  ci  a  ct  a  a  ci  a 


00  IS  I  :  1.2 
ud.j)  =  n. 

15  rn.j)  =  o. 

CALI  OOTPRD  (Rl.  El»  0) 

CALI  OOTPRD  (Rl »  E2»  K12) 

CALL  OOTPRD  (R2»  E2»  H22) 

CALL  OOTPRD  (Rl.  Rl.  RlMAG) 

CALI  OOTPRD  (R2»  R2»  R2MA6) 

RlMAG  =  SORT  (RlMAG) 

R2MAG  =  SORT  (R2MA6) 

RA  =  ABS(Hl?) 

RB  r  ABS(R22) 

RMAo  =  AMAXl  (RA.  RB) 

IF  (ABS(0  /RMAG).LT.1.0E-03)  60  TO  40 
SI GO  s  n  /  ABS(D) 

T1  =  ATAM(R12/0)  -  (l.-SI60)*Pl/2. 

T2  s  ATAN(R22/0)  -  (l.-Sl6D)*PI/2. 

ST1  =  Rt2  /  RlMAG 
ST2  =  R2?  /  R2MAG 
CT1  =  D  /  R1MA6 
CT2  =  D  /  R2MAG 
TNI  s  R12  /  0 
TN2  =  R22  /  0 

DIAGNOSTIC  PRINT  — -  OCCURS  ONLY  IN  THE  CASE  OF  SERIOUS  DATA  ERROR 


IF  (  (CT1/CT2)  .GT.  0.)  GOTO  500 
WRITE  (A.20OO)  M.  N.  X.  P*  Rl*  R2*  FI.  ( 
500  CONTINUE 

XL1  s  AL0G(0/CT1) 

XL2  =  AL0G(0/CT£) 

CALCULATE  OELU  INTEGRAL  FOR  U.NE.O 
IF  (IFLG.EQ.t)  GO  To  45 

XII  =  n*(TN2*XL2-TN2«-T2-TNl*XLl+TNl-Tl> 
X12  =  0*(T2-T1) 

XI3  =  D*( XL2-XL1 ) 

XI4  =  0*(TN2-TN1-T2+T1) 

00  SO  IX  =  1*2 

00  SO  JX  =  IX. 2 
DEL  =  0. 

IF  (IX.FO.Jx)  OEL  =  1. 


CT1.  CT2. 


20*25245 

20*2S290 

20*25295 

20*25300 

20*25305 

20*25310 

20*25315 

20*25320 

20*25325 

20*25330 

20*25335 

20*25340 

20*25345 

20*25350 

20*25355 

20*25350 

20*25355 

20*25370 

20*25375 

20*253^0 

20*253B5 

20*25390 

20*25395 

20*25400 

20*25405 

20*25410 

20*25415 

20*25420 

20*25425 

20*25430 

20*25435 

20*25440 

20*25445 

20*25450 

20*25455 

20*25460 

20*25465 

20*25470 

20*25475 

20+25450 

20*25455 

20*25490 

20*25495 


UAY  =  Pl*(P?*OEL*XIl-El(IX)*El(JX)*Xl2-(Ei(IX)*E2(UX)+El(jX)*E2(IX20*25500 
1  ))*XI3-E2(IX)*E2(JX)*XI4)  20*25505 

U(lY.JX)  =  IIXY  *  ISVM(JX)  20*25510 

IF  (IX.FO.JX)  GO  TO  50  20*25515 

U(JX.IX)  =  IIXY  *  ISYM(IX)  20*25520 

50  CONTINUE  20*25525 

20*25530 

CALCULATE  CELT  INTEGRAL  FOR  O.NE.O  20*25535 

20*25540 

45  IF  (JFLG.EO.t)  GO  To  75  2D*255«»5 

XII  5  T2-T1  20*26550 

XI2  =  TJ>+ST2*CT2-T1-ST1*CT1  20*25555 

XI3  =  ST2**?-STl**2  17c  20*25560 

Xt4  z  T2-ST2*CT2-T1+ST1*CT1  20*25565 

XI5  =  AL0fi(CTl/CT2)  20*25570 


oo 


00  AO  IX  =  1#2 
00  AO  JX  =  IX  »2 
TXY  =  0. 

IF  (IX.FO.JX.ANU.M.FG.N)  GO  TO  60 
OEL  =  0. 

IF  (IX.F4.JX)  OEL  =  1. 

TXY  =  P3*  (P4*0E‘_*XI  l*£l  (IX)*E1  <  JX)  *XI2*(E1  ( IX )  *E?(  JX)*E2  ( IX)* 
1  Et(JX))*XI3+E2(lX)*E2<JX>*Xf4) 

T ( Ix» JX)  =  TXY  *  ISYM(JX) 

IF  (IX.FO.JX)  60  TO  60 

TSTAR  =  -P3*P4*(E2<IX>*E1(JX)-E1<IX)*E2(JX))*XI5 
TilX.JX)  =  CTXY+TSTAR)*ISYM( JX) 

T ( JX» IX )  =  (TXY-TSTAR)*ISYM(IX) 

60  CONTINUF 
GO  TO  75 
40  CONTINUF 

XII  s  R?2*<AL0G(RB)-1.)-R12*<AL0G(RA)-1.) 

XI2  =  R?5>  -  R12 
XI3  =  ALOR(RR)  -  ALoG(RA) 

CALCULATE  OELU  FOR  D.EO.U 
IF  (IFLG.EO.l)  GO  To  65 
00  70  IX  =  1 #2 

00  70  JX  s  IX»2 
OEL  =  0. 

IF  (IX'FQ.Jx)  OEL  =  1. 

UXY  =  PI *<P?*0EL*Xll-£2 ( IX) *E2 ( JX ) *XI2) 

Utlx.JX)  =  UXY  *  ISYM(JX) 

IF  (IX.FCi.JX)  GO  TO  70 
U(JX.lX)  r  UXY  *  ISym(Ix) 

70  CONTINUF 
C 

C  CALCULATE  nELT  INTEGRAL  FOR  O.EQ.O 
65  IF  (JFLG.EO.l)  GO  To  75 
00  AO  IX  =  1*2 

00  AO  JX  =  TX*2 
IF  (IX.FO.JX)  60  TO  8C 

TXY  =  -P3*Pu*(E2(IX)*E1(JX)-E1(IX)*F2(Jx) )*XI3 
T( IV* JX )  =  TXY  *  ISYM(JX) 

T(JV»IX)  =-TXY  *  ISYM(IX) 

80  CONTINUF 
75  00  A5  IX  =  1*2 
00  A5  JX  =  1*2 
N4  s  N  ♦  (IX-1)*NSFG 
M4  s  M?  ♦  (JX-1)*NSFG 

IF  (IX.FO.JX.ANO.M.EO.N)  T(IX»JX)  =  -0.50 
IF  (L0C(M4).E0.1)  GO  TO  90 
TRAnS  =  U(IX.JX) 

U(IV*JX)  =  -(l./FMU)  *  T ( IX* JX ) 

T( Iv* JX)  =  -FMU  *  TRANS 
90  RHSCN4)  =  RHS(N4)  ♦  UdX'JX)  *  8VALCM4) 

85  G(Nu*M4)  =  6(N4*M4)  *  T(IX»JX) 

20  Continue 
return 

POOO  FORMAT  (//  5X  215  /  (2F10.5  /)) 

END  176 


20*25575 

20*25580 

20*25585 

20*25S°0 

20*25595 

20*25600 

20*25605 

20*25610 

20*25615 

20*25620 

20*25625 

20*25630 

20*25635 

20*25640 

20*25645 

20*25650 

20*25655 

20*25660 

20*25665 

20*25670 

20*25675 

20*25680 

20*25685 

20*25690 

20*25695 

2D*25700 

20*25705 

2D*25710 

20*25715 

20*25720 

20*25725 

20*25730 

20*25735 

20*25740 

20*25745 

20*25750 

20*25755 

20*25760 

20*25765 

20*25770 

20*25775 

20*25780 

20*25785 

20*25790 

20*25745 

20*25800 

20*25805 

20*25810 

20*25815 

20*25820 

20*25825 

20*25830 

20*25835 

20*25840 

20*25845 

20*25850 


non 


Subroutine  insouk 


XYZ(100*2»2)»  UCOnC200)»  TCON(pOO)*  LDC(200) 
PTIN(lOU»2) 

FMU»  POISN*  PI*  PI*  P2*  P3*  P4.  P5 
Tim  (io) 

NSEG*  NSYM*  NTOTAl*  NSIZE*  NPT*  N8DYP 
TtTL( 16) •  I PUNCH*  ISTRS*  IBOY 


Common  /  arrayi  /  xyz(ioo.2*2) ►  ucon(20o)*  tcon(?oo>*  ldc(200) 

COMMON  /  ARRAY3  /  PTIN(lOU»2) 

COMMON  /  MATCON  /  Fmu*  POISN*  pi*  PI*  P2*  P3*  P4.  P5 
COMMON  /  TIMERS  /  TIM  (10) 

COMMON  /  C0NTR1  /  NSEG*  NSYM*  NTOTAl*  NSIZE*  NPT*  NBDYP 
COMMON  /  C0NTR2  /  TlTL(16)»  IPUNCH*  ISTRS*  IBOY 
OIMPNSTON  C(|00»3) *  A(4)*  PXYZ(3) 

IF  (IBOV.NE.O)  60  To  100 
110  IF  (NPT.EO.O)  RETURN 
CALL  TIME  (  TIM(7)  ) 

WRITE  (6*2000)  TIIL 
IF  (ISTRS. EO.O)  WHITE  (6*2050) 

IF  (ISTRS. EO.l)  WRITE  (a*206Q) 

CALL  For  CALCULATION  OF  OELD  AND  DELS 

WRITE  (A. 2100) 

A ( 4 )  =  0. 

CALI  OELSD  (C) 

DO  10  NP  =  1 »NPT 
DO  20  I  =  1*3 
20  A ( I )  =  C(NPrl) 

IF  ( ISTRS. Eo.l)  GO  TO  30 
A ( 4 )  =  POTSn  *  ( A ( 1 >  ♦  A ( 3)  ) 

30  CONTINUF 

theta  =  (a(i>  ♦  a(3i  ♦  a(4))/3. 

TAUOCT  s  SQRT(2.*(A(D**2+A(3)**:»+A(4)**2-A(1)*A{3>-A(3)*A(4)- 
l  A(1)*A(4)+3.*A(2)**2))/3. 

WHITE  (A. 2200)  NP* (A(K)*K=1*4)»TH£TA*TAU0CT*PTIN(NP*1) *PTIN(NP*2) 
10  CONTINUE 

CALI  1IMZ  (  TIM(A)  ) 

RETURN 

100  WRITE  (A. 2300)  TITL 
DO  120  I  =  l.NSEG 
J  =  I  +  NSEG 

120  REAO  (6.1100)  N»  UC0N(D*  UCON(J) 

00  130  T  =  I » NSEG 
J  s  I  ♦  NSEG 

130  REAO  (6.1 100)  N»  TC0N( I , *  TCON(J) 

WHITE  (A. 2300) 

00  140  I  r.  l.NSEG 
J  =  I  +  NSEG 
DO  150  N  s  1*2 

150  PXY7(N)  =  (XYZ(1*1»N)  +  XYZ(I*2*N))/2. 

140  WHITE  (A. 2400)  I*  UC0N(1)»  UCON(J)*  TCON(I>»  TCON<;> > 

1  LnC ( I ) *  LUC ( J ) *  PxYZ(l>*  PXYZ(?) 

GO  TO  110 

1100  FORmaI  (110*  2E30.1D) 

2000  format  (ihi*  iox.  1aas> 

2050  FORMAT  (  /  4'  16H  PLANE  STRAIN  ****  )  ) 

2060  format  (  /  4(  ish  plane  stress  ****  )  ) 

2100  Format  (AH0PO1NT*  2X  10H  SIGMA(XX)  ?X  10H  SIGMA(XY)  2X 

1  10H  SlGN-A(YY)  2X  10H  SIGMA(ZZ)  4X  6H  THETA  6X  7H  TAlloCT 

2  5X  ?«l  X  6X  ?H  Y) 

2200  FORMAT  (2X  I3*  2X  6F12.2*  2FA.4) 

2300  FORMAT  (//  4X  4H  SEG  7X  2HU1  IOX  2HII2  10X  2riTl  lnx  2HT2  AX  4HL0C1 
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2000  format  c 

2050  FORMAT  ( 

2060  format  ( 
2100  Format  u 


20*30000 

2D*30005 

20*30010 

20*30015 

20*30020 

20*30025 

20*30030 

20*30035 

20*30040 

20*30045 

2D*30050 

2D*300S5 

2D*30060 

20*30065 

20*30070 

20*30075 

2O*3O0A0 

2D*300A5 

2D*300R0 

2D*30095 

20*30100 

2D*30105 

2D*30110 

20*30115 

20*30120 

20*30125 

2D*30130 

20*30135 

20*30140 

2D*30145 

20*30150 

20*30155 

20*30160 

20*30165 

20*30170 

20*30175 

20*30100 

20*30185 

20*301«>0 

20*30195 

20*30200 

2D*30205 

2D*3021o 

20*30215 

2D*30220 

20*30225 

20*30230 

2D*30235 

^0*30240 

20*30245 

20*30250 

20*30255 

2D*30260 

20*30265 

20*30270 

20*30275 

2D*302«0 


20*30205 

20*30200 

20*30205 


1  6*  4HI.DC2  flX  2HX1  10X  2HX2  //> 

9400  FORMAT  (2X  is*  2F12.R#  2F12.0*  6X  H#  11X  II*  2F12.6) 
End 


SUBoOUTTNF  OFLSD  (G) 

COMMON  /  ARRAY1  /  XYZ  (100»2»2> »  UCOra(20n) ,  TCON(9O0>»  LDC(200> 

common  /  arrays  /  ptin(ioo»2> 

Common  /  matcon  /  Fmu#  pr#  pi»  ci»  C2»  C3#  C4 
Common  /  contri  /  nseg»  NSYM#  NTOTAl»  nsize»  npt.  NBDYP 
common  /  C0NTR2  /  TITL(16>»  IPUNCH»  ISTRS»  IODY 
OIMPNSION  A(?>»  El  (?) »  E2 (2 >  »  P(2>»  X(2»2)»  Rl<2)»  H2(2) 
0IMFNSION  ISYM(2>»  G(100»3> 

do  10  I  =  i»ioo 

00  10  J  =  1*3 
10  6(1. j)  =  n. 

DO  90  M  :  l.NTOTAL 
Ml  =  (M-D/NSE6 
M2  =  M  -  Ml*NSEG 

c 

C  COMPUTE  SYMMETRY  COEFFICIENTS  USING  Y »  THEN  X 
IFLAG  =  1 
DO  16  K  =  1«? 

J  -  3  -  K 

I  =  (M-l )/(NSE6*( (2**J)/2> ) 

ISYm(K)  =  (-1)**! 

IF  (I.FO.O)  ISYM(K)  =  1 

16  IFLAG  =  IFLAG  *  ISYm(K) 

DO  32  J  =  1*2 

IF  (IFLAG. GT.O)  GO  TO  23 
X(l.J)  =  XYZ (M?*?« J)  *  ISYM(J) 

X (2. J)  s  XY7(M2*1*J)  *  ISYM(J) 

GO  TO  35 

23  X(l.J)  s  XYZ (M2* 1* J)  *  ISYM(J) 

X (2. J)  =  XY7(M2»?» J)  *  1SYM(J) 

35  CONTINUE 
C 

C  OEFInE  DIRECTION  OF  the  LINE  SEGMENT  E?  =  A(J)/AMAG 

c 

32  A(J)  =  X(?»J>  -  X(l.J) 

AMAG  =  SORT  (A(l)**2  ♦  A (2) **2 ) 

00  33  I  =  1*2 
E2(T)  =  A ( 1 1 /AMAG 
J  =  3  -  I 

33  El(.l)  =  F?(T)  *  (-1>**(J*1) 

C 

C  CALCULATE  THE  ANGLES  Tl  ANO  T2  ANO  THE  DISTANCE  D 
C 

00  90  N  :  1*NPT 
00  15  J  =  1*2 
P(J)  =  PTIN(N»J) 

R21.J)  =  X  (2  *  J)  *•  P  Co* 

Rl(.l)  =  X(1*J)  -  P(J) 

15  CONTINUE 
01  =  0. 

02  =  0. 

00  17  J=1*2 

01  r  01  ♦  R1 (J)«Rl(j) 

17  02  =  02  +  R?(J)*R2(J) 

01  =  SORT (01  ) 

02  =  SORT(D?> 

CALi  OOTPRD  (Rl*  El*  u)  179 


20*35000 

20*35005 

20*35010 

20*35015 

20*35020 

20*35025 

20*35030 

20*35035 

20*35040 

20*35045 

20*350*0 

20*35055 

20*35060 

20*35065 

20*35070 

20*35075 

20*350AO 

20*350*5 

20*35090 

20*350°5 

20*35100 

20*35105 

20*35110 

20*35115 

2D*35120 

20*351?5 

20*35130 

20*35135 

20*35140 

20*35145 

20*35150 

20*35155 

20*35160 

20*35165 

20*35170 

20*35175 

20*35100 

20*35105 

20*351°0 

20*35l°5 

20*35200 

20*35205 

20*35210 

20*3*215 

2D*352?0 

20*35225 

20*3*230 

20*35235 

20*35240 

20*35245 

20*35250 

20*35255 

20*3*260 

20*35265 

20*35270 

20*35275 

20*35200 


CALI  OOTPUD  (Rt  #  E2.  K12) 

CALI  OOTPHO  (H2.  E2#  «22) 

CALL  OOTPRD  (Rl»  Ki*  KImAG) 

CALI  OOTPWO  (R2»  R2»  l<2MAb) 

R1MAG  =  5«iRT  (R1MAG) 

R2MAb  =  SORT  (R2MAG) 

RA  £  AHS(RlP) 

Rb  =  AR5(R2?> 

RMAfi  =  AMAXl (RA.RB) 

IF  (AflStn  /RMAG) .LT.1.0E-03)  GO  TU  40 
SIGH  =  0  /  ARS(U) 

Tl  =  ATAN(Rt2/0  )  -  (l—SIG0)*Pl/2. 

T2  r  ATAN(R22/0  )  -  < 1 .-SIGO) *PI/2. 

51  =  HI?  /  HIMAG 

52  =  R22  /  R2MAG 
Cl  r  0  /  HlMAG 
C2  =  0  /  H2MA6 
XL1  =  ALOG(Ol) 

XL2  =  AL0G(n2) 

L  =  0 

00  >5  I  =  1.2 
00  95  J  =  I.? 

L  =  L  ♦  1 
00  »5  K  =  1*2 
OELtk  SO. 

OELKJ  r  n. 

OELTJ  =  n. 

IF  (I.EO.K)  0EL1K  =  1. 

IF  (K.FO.J)  OELKJ  =  1. 

IF  (I.FQ.J)  OELIJ  -  1. 

IF  <ABS(0/RmAG).LT. ..OE-03)  GO  TO  30 

001  :  T9  -  Tl 

002  =  XL2  -  XL1 

003  =  T2-Tl+S2*C2-Sl*Cl 

004  r  s?**2-Sl**2 

DU5  =  TP-T1— S2*C2+Sl*Cl 

DOG  =  2.*ODp-S2**2*Sl**2 

0S1  =  ons/D 

0S2  =  004/0 

0S3  =  005/0 

0S4  =  001 /O 

OSS  =  3.*0Sl  ♦  2.*<S2*C2**3-Sl*Cl**3>/0 

0S6  =  ?.*(Cl**4-C2**4>/0 

0S7  =  4  •  *i)Sl  -  OSS 

OSfl  =  2.*(S?**4-Si**4)/0 

AIJk  =  OFLlK*El <J)+0ELKJ*E1(I)-0ELIJ*E1(K> 

BIJ«  =  OFI.IK*E2<J)+OELKJ*E2(I)-OPLIJ*E2(K) 

CIJ*  =  n(I)*EilJ)*FllK) 

FIJk  =  P2<n*E2(J)*62(K) 

01J*  =  FI  (I)*E2CJ)*P|CK)+E2U>*E1  C J) *E1  IK )♦£! (T )*E1  ( J»*E?(K ) 
EIJk  =  FI  (I)*E2CJ)*F2<K)+fc2(I)*El(J)*E?(K)+E2(n*E2(J)*EJ  (K) 
G1J*  =  C4*DFLIJ*E1<K)*E1<1)*E1  <J)*El  <K)*PK*(OELlK*El  (JI+OpLKJ* 
1  E1CD) 

HI  J*  =  C4*0FLIJ»E2(K)+E1(I)*F2<J)*E1 (K)+E2(I)*El(J)*Fi(K)+ 

1  PR* (0FLIK*E2( J) ♦ JELK J*£2 ( I 1 +2.*Et ( I )*f 1 ( J1 *E2  <K) - 

2  FI  <I>*E2(J>*Fl<KJ-E2U>*EliJ)*El(K)> 

01  J*  r  r.4*E2<l)*Ei»<J>*El(K>+PK*(irl<T>*F?(J>*E2(K>+E2<I>*Fl( Jl* 
1  F?»K|)  18Q 


20*352«5 

Pn*352°0 

20*35295 

20*35300 

2D*35305 

20*35310 

20*35315 

20*35320 

20*35325 

20*35330 

20*35335 

20*35340 

20*35345 

20*35350 

20*35355 

20*35350 

20*35355 

20*35370 

20*35375 

2D*353*0 

20*35355 

20*353Qn 

20*35395 

20*35400 

20*35405 

20*35410 

20*35415 

2D*35420 

20*35425 

20*35430 

20*354^5 

20*35440 

20*35445 

20*35450 

20*35455 

20*35450 

20*35455 

20*35470 

20*35475 

20*35440 

?n*354A5 

20*35490 

20*35495 

20*35500 

20*35505 

20*35510 

20*35515 

20*355?o 

20*355*5 

20*35530 

2D*35535 

?D*35540 

20*35545 

20*35550 

20*35555 

20*35550 

20*35555 

20*35570 


uou 
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•V  imp'wip 


:  3  jgaggwrawaw  h»«ii»wW!WB]W«BW*BB 


PI  JK  s  C4*(0ELIa*E1 ( J) *DELKJ*E1 Cl) l-OELl J*El (K) *( I*-4**PR) 

DU  =  C3*<C4*(AIJK*Dd1+B1JK*002>+CIJk*003+UIJK*DD4+EIJK*D05 
1  ♦FIJK*DD6)*l5YM(K) 

DS  =  ?.*FmU*C3*(G1JK*OS1*hIJK*DS?*OIJK*OS3*PIJK*DS4-CIJK*OS5 
1  -0 t  JK*DSb-E I JK*DS7-F I JK*DS8 ) * I SYM ( K  > 

Go  TO  ?4 

3n  continue 

BIJk  =  OEL IK  *E2  ( J )  +I1ELK  J *-.2  ( I )  -DELI  J*E2  C  K ) 

QIJK  =  C4*(?.*E1(K)*E2(I  ~2(J)*E1(J) *DEL IK* El ( I ) *DELK J ) ♦ 

1  ?.*PR*<E1<I>*E2(J»*E2<K>«€2<I>*E1(J>*E2<K> l-DELI J*El <K ) 

51  =  R12/RA 

52  r  R22/RB 

c0LL0MTN6  IDIOT  CARDS  REQUIRED  FOR  110m  FORTRAN 

AR61  =  RB 

AR6 2  -  RA 

DD2  =  S?*ALOG(AR61)  -  Sl*AL06( AR62) 

0U6  =  00? 

DS9  =  l./RA-i./KB 

OD  s  C3* ( C4*B I JK*0D?*2 . *E2  til *E2  *  J  > *E2 ( K 1 *006 >  * Is YM ( K  > 

OS  =  ? ■ *FMU*C3*ft I JK  *DS9* I SYN ( K ) 

24  CONTINUE 

M4  =  M?  ♦  (K-l)  *  NSEG 

6(N*L>  =  fi(N»L)  ♦  DD*TC0N(M4)  -  DS*llC0N(M4) 

25  Continue 
20  Continue 

RETURN 

End 


20*35575 
20*35500 
20*35505 
20*35590 
?D*35595 
20*35600 
20*35605 
20*35610 
20*35615 
20*35620 
20*35625 
20*35630 
20*35635 
20*35640 
20*35645 
20*35650 
20*35655 
20*35650 
20*35655 
20*35670 
20*35675 
20*35600 
20*35685 
20*35600 
20*356°5 
20*35700 
20*35705 
20*3571 0 
20*35715 


181 


nonno 


SU8P0UTTMP  ROYSTR  (C) 

COMMON  /  ARRAY  1  /  XY7(ir.0’2’2) »  UCOu(200)»  TCON(?00)»  LDCC200) 


Common  /  aRray4  /  nuoy(so»3) 

Common  /  MATCON  /  FmU»  POISN.  PI  *  PI »  22»  P3»  P4»  PS 

Common  /  contri  /  nseo»  nsym*  ntotal*  nsize»  npt,  nboyp 

COMMON  /  C0NTR2  /  TITL(16)>  IPUNCH#  ISTRS*  IBDY 
COMMON  /  TIMERS  /  TIM(IO) 

DIMENSION  A ( 2)  t  El (2) »  E2(2) #  P(3»2>»  R(?)t  0U(2)»  T(£>.  C(50#4) 


IF  (NRDYP.EO.O)  RETURN 
CALL  TIME  (  TIM(9)  ) 

Cl  =  l.-?.*P01SN 
C2  —  i.-POlSN 
WRITE  (6.2000)  TITL 

WRITE  (A .2100)  ((NBOY(I»J) . J=l»3> . I=1*NBDyP) 
WRITE  (6.2000)  TITL 
IF  (ISTRS.EO.O)  WRITE  (6*2050) 

IF  (ISTRS.EQ.l)  WRITE  (6*2060) 

WRITE  (6*2200) 


10  =  BASE  SEGMENT  NUMBER 

11  s  RFAR  DIFFERENCE  SEGkEuT  NUMBER 

12  =  FoRmARO  OIFFERENCF  SEGMENT  NUMBER 


00  15  N  =  1. NBOYP 

10  =  NROY  (N.l) 

11  =  NBOY  (N*2) 

12  s  NBOY  (N*3) 

DO  90  M  =  1*2 

P(l.M)  =  ( XY7 ( IU *  1 *M)  ♦  XYZ(IG*?*M ))/*, 
P(2.M)  =  ( XYZ ( II *  1 *M)  ♦  XYZ(Il*2*M))/2» 
P(3.M)  =  (XYZ(I2*1*M)  ♦  XYZ(I2*2*M) )/2. 
R(M>  =  P(3»M)  -  P(2*M) 

20  A(M)  =  XYZ(I0*2*M)  -  XYZ(10*1*M) 

SmAb  =  SORT ( R ( 1  )**2  ♦  R(2)**2) 

AmAr  =  SORT ( A ( 1 ) **2  ♦  A(2)**2> 

00  25  M  =  1.2 
E2(m)  =  A (M) /  AMAG 
K  =  3  -  M 

E1(K)  =  E2 (M)  *  (-1)**(K+1) 

13  i  II  +  (m-1)*NSEG 

14  s  12  ♦  (m-1 ) *NSEG 

15  =  10  ♦  (m-1)*NSEG 

OU(M)  =  (llCON(  14)  -  UCON(  13)  )/SMAG 
25  T(M)  =  TCON( 15) 

M  =  0 

00  30  I  =  1*2 
00  30  J  =  1*2 
M  =  M  +  1 


20*40000 

20*40005 

20*40010 

20*400)5 

20*40020 

20*40025 

20*40030 

20*40035 

20*40040 

20*40045 

20*40050 

20*40055 

20*40060 

20*40065 

2D*40070 

20*40075 

20*40000 

20*40005 

20*400^0 

20*40095 

20*40100 

20*40105 

20*40110 

20*40115 

20*40120 

20*40125 

20*40130 

20*40135 

20*40141) 

20*40145 

20*40150 

20*40155 

20*40160 

2D*40165 

?D*40170 

2D*40175 

20*40100 

20*40105 

2D<-40190 

20*40195 

20*40200 

20*40205 

20*40210 

20*40215 

20*40220 

20*40225 

20*40230 

20*40235 


01 J  =  0.  20*40240 

IF  (I.FO.J?  OIJ  =  1.  20*40245 

C(N.M)  =  (Cl/(2.*C2))*(T(I)*E1(J)  ♦  T(J)*El(D)  -  (FMU/C?)*POISN*  20*40250 
1  (E2(J)*0U(I)  ♦  E2(D*0U(U))  20*40255 

00  30  K  =  1.2  20*40260 

Al  =  E1(I)*E1  (v«)*El(K)  ♦  Eld)*t2(J)*E2(K)  ♦  20*40265 

1  E2(T)*F1 (J)*E2(K)  ♦  E2(I)*E’(J)*E10O  20*40270 

A2  =  El (I )*F1 (J)*E2(K)  -  El ( I )*L2( J)*E1 (K )  -  E2( I )*E1 ( J) *F1 !  (K )  20*40275 

A3  =  E1(I)*E2(J)*E1(K)  ♦  E2 ( I >*El ( J) *E1 (K)  20*40280 
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A4  =  E2(I)*F2<J)*E2lK> 

C(N.M)  =  C(N»M)  -  (C1/(2.*C2) )  *QIJ*Fl  (K)*T(K)  ♦  (l./‘2.*C2) >  *(A1* 

1  T(K ) )  «■  (FmU/C2)*(C1*A2  ♦  C2*A3  ♦  3.*A4)*Dil(K>  - 

2  (  FmII/C  2  5  *C  1  *Ul  J*fc2  ( K )  *DU  (  K ) 

30  CONTINUE 

IF  (ISTRS.Eo.il  60  TO  35 
C (N#4)  =  POISN  *  (C (N* 1 )  ♦  C(N»3>> 

35  theta  =  (c(n»i>  4-  c(n»3>  ♦  c(n»4)>/*. 

TAUOCT  =  SQRT(2.*(C(N»l>**2+C(N»3)**2+C(N*4)**2-t(N»l>*C(N»3)- 
i  C(n»3)*C(N»4)-C(N»1>*C(N»4>+3.*C(N»2>**2>)/3. 

15  WRITE  (6*2300)  I0»(C(N»m)»M=1*4)»THfTA»TAuOCT,P(1,1),P(i,?) 

CALI  TlfcJ  (  TIM(IO)  ) 


20*40205 

20*40240 

20*40205 

20*40300 

20*40305 

20*40310 

20*40315 

20*40320 

20*40325 

20*40330 

20*40335 

20*40340 


RETURN  20*40345 

moo  format  (?4i3)  20*40350 

9000  FORMAT  (tHl*  10X*  16A5)  20*40355 

9050  format  (  /  4<  ish  plane  strain  ****  >  >  20*40350 

9060  FORMAT  {  /  4<  18H  PlANE  STRESS  ****  i  )  20*40365 

9100  format  </  sx  iihbaSf  number  2x  iihrfar  number  sx  iohfwo  number  //  20*40370 
1  (  3112  /)  )  20*40375 

9200  Format  <7H066MENT  2X  IOH  SIGMA(XX)  2X  10H  SIGMA(XY)  2X  20*403*10 

1  IOH  SIGMA (YY)  2X  IOH  SIGMA(ZZ)  4X  6H  THETA  AX  7H  TAUOCT  20*40385 

2  5X  2H  X  6X  2H  Y)  20*40340 

9300  FORMAT  (2X  I3*  2X  6F1 2.2*  2F8.4)  20*40395 

end  20*40400 


783 


subroutine  ootprd  u#  b»  C) 

DIMENSION  M2>»  9(2) 

C  =  A(1)*B(1)  ♦  A(2)*B<2> 

RETURN 

EnO 


20*45000 

20*45005 

20*45010 

20*45015 

20*45020 
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subroutine  solver  <n»  x.  f»  a) 

DIMENSION  AINtN) t  XIN)  t  F<N)t  XX(16n) 

double  precision  X 

DO  10  I  :  It  N 
Fin  =  n.o 
10  CONTINUE 
N1  =  N  -  1 
DO  60  I  =  2t  N 
00  S5  J  =  It  N 

IF  fAAS(A(I~ltI-in  .6T.  0.)  60  TO  45 

11  :  I  -  1 
WRITE  (6t5l0)  II 
RETURN 

45  CONTINUE 

CX  =  AIJ.I-ll  /  All— It  I— 1) 

K2  =  I 

DO  SO  K  =  It  N 

AIJ.K2)  s  A( JtK2)  -  CX  *  AII-ltK2) 

K2  =  K2  +  1 
50  CONriNlIF 

AIJ.I-U  =  CX 
55  CONTINUE 
60  CONTINUE 

C  FORWARD  PASS  -  OPERATE  ON  RI6HT  HAND  SIDE  AS 
C  ON  MATRIX 
62  CONTINUE 

DO  70  I  =  2t  N 
00  65  J  =  It  N 

X(J»  r  X(J)  -  X(I-l)  *  AUtl-ll 
65  CONTINUE 
70  CONTINUE 

BACKWARD  PASS  -  SOLVE  FOR  AX  -  B 
XX(N)  =  X IN)  /  AINtN) 

DO  AO  I  =  It  Nl 
SUM  =  0.0 

12  =  N  -  I  +  1 
DO  75  J  =  I2t  N 
SUM  =  SUM  ♦  Af  12—1 1 J)  *  XXU) 

75  CONTINUE 

XXIT2-1)  =  IXII2-D-SUM)  /  AII2-lfl2-l> 

80  CONTINUE 

DO  «0  I  =  It  N 
F(I)  =  Ell)  ♦  XXII) 

90  CONTINUE 
RETURN 

510  FORuATI/lX  P5HERR0R  RETURN  FROM  SEOSOV  IlOt 
1  S5v!0,  ASONAL  term  REDUCED  TO  ZERO  /  ) 

END 


2D*50000 

20*50005 

20*50010 

2D*50015 

2D*50o?0 

?D*bO025 

20*50030 

20*50035 

20*50040 

20*50045 

2D*500SO 

20*50055 

20*50060 

2D*50065 

20*50070 

20*50075 

20*50000 

20*50085 

20*50090 

20*50095 

20*50100 

20*50105 

20*50110 

20*50115 

20*50120 

20*50125 

2D* 50130 

20*50135 

20*50140 

20*50145 

20*50150 

20*50155 

20*50160 

20*501f5 

20*50170 

20*50175 

20*50150 

20*50155 

20*50190 

20*50195 

20*50200 

20*50205 

20*50210 

20*502)5 

20*50220 

20*50225 

20*50230 

20*50235 

20*50240 


185 


S.2  TWO  DIMENSIONAL  ANISOTROPIC  BOUNDARY-INTEGRAL  EQUATION  METHOD 
S.2.1  Formulation  of  the  Field  Equations 


The  present  note  concerns  the  application  of  the  Boundary- 
Integral  Method  to  the  solution  of  two  dimensional,  plane  stress  problems 
for  fully  anisotropic,  elastic  materials.  The  nature  of  the  equations 
is  such  that  engineering  notation  for  all  field  variables  is  convenient. 
The  notation  and  theoretical  development  of  the  field  equations  follows 
from  Lekhnltskii  [1]^.  The  development  of  the  boundary- integral  equations 
follows  the  usual  method  outlined  by  Cruse  [2].  The  solution  of  the 
problem  of  unit  loads  in  the  x-  and  y-di rections ,  called  the  fundamental 
solution  will  be  first  be  obtained.  Next,  the  Betti  reciprocal  work 
theorem  will  be  used  to  obtain  Somigliana's  identities  for  internal 
displacements  and  stresses.  Finally,  the  Boundary-Integral  Equation 
will  be  obtained  from  the  Somigliana  displacement  Identity. 

In  the  place  stress  equations  presented  in  this  note,  the  non¬ 
zero  stress  components  are  {o  ,  o  ,  x  }  and  the  corresponding  strain 

a  y  x  y 

components  are  (e  ,  e  ,  The  equilibrium  equations  for  the  stresses 

x  y  xy 

are 


The  strain  components  are  subject  to  the  single  compatibility  equation 


(2) 


The  constitutive  law  for  the  fully-anlsotroplc  elastic 
Material  In  plane  stress  can  be  given  In  Matrix  form  as 


The  B-ij's  are  the  Material  compliances  and  are  known  to  be  the  coMponents 
of  a  fourth-order  tensor,  as  the  strains*  and  stresses  are  componants 
of  second  order  tensors.  The  tensor  character  of  the  compliances  Is 
basic  for  the  application  of  the  current  results  to  composite  materials, 
as  discussed  by  Ashton  et.  al.  L3]. 

The  compliances  may  be  given  In  terms  of  engineering 
material  constants 

Bn  «  1/EX  ,  Blz  =  -Vx/Ex 

B22  *  1/Ey  .  Blf  *  \y,x/Ex 

B26  *  n^y  /Ey  ,  B66  -  1/Gxy 


*Us1ng  Yxy/2  as  the  tensorlal  shear  component. 
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For  orthotropic  materials  e16  *  «26  *  0.  For  later  reference  the 
stiffness  coefficients  are  now  Introduced  but  not  put  in  engineering 
terms 


0 

X 

a 

y 

T  . 

xy 

®n 

°12 

®]  6 

ai  2 

°22 

°26 

a16 

°26 

a66 

The  Airy  Stress  Function  is  now  introduced  such  that  its 
existence  guarantees  satisfaction  of  equilibrium,  Eq  (1) 


lit  , 


*!F  ,  xxv  =__i£F 

3X7  *  3x3y 


3y^  J  3XZ  J  dxdy  '  ' 

Substitution  of  Eq  (7)  into  Eq  (4)  and  Eq  (2)  res:1. ts  in  the  following 
governing  differential  equation  for  F(x,y) 


a*.:-  a4t  a4r 

en  Jf  ■■  2b16  +  (2Pi7  +  B66)  -jpsp 


3l*F  +  ft  3^  -  ft 

‘  2b26  3X^3y  +  022  -  0 

Characteristic  surfaces  along  which  F(x,y)  can  be  Integrated  may  be 
found  by  introducing  the  notation 

z  =  x  +  uy;  u*a+1b  ,  1*  t^T 

Substitution  of  Eq  (9)  intc  Eq  (8)  reduces  Eq  (8)  to 


jjir  [Bum4  *  28i6ii3  +  (2Bi2  +  B66/M2  -  2b26M  +  622]  s  0  (10) 
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If  we  are  to  obtain  non-trivial  results  to  Eq  (10)  d4F  /  dz4  f  0 
which  requires 

Buy4  -  2e16y3  +  (2612  +  B66)u2  "  2B26y  B22  *  0  (11) 

Eq  (11)  is  the  characteristic  equation  for  the  material;  Lekhnitskii 
shows  that  the  four  roots  of  Eq  (11)  are  never  real  and  are  distinct 
so  long  as  the  material  is  not  isotropic.  We  denote  the  roots 
yj  *  a<  +  *bj  0=1.2)  and  wj  =  aj  "  *bj*  L®khn1tskii  also  shows  that 
bj  >  0,  from  thermodynamic  considerations.  Thus  the  characteristic 
directions  become 

zkax  +  pky*  k=1*2  02) 

and  their  conjugates. 

The  general  form  of  the  stress  function  can  be  given  by  the 

relation 

F(x,y)  =  2R  {  F^z^  +  F2(z2)  }  (13) 

Introducing  the  notation  dF^/dz^  (no  summation  on  k)  *  *ic(zk) 
the  stresses  become 

ox  =  2R  (m2  ♦f(z1)  +  y22  *2(z2)} 

oy  =  2R  (♦f(z1)  +  *2(z2))  (14) 

txy  =  -2R  {vrfUi)  ♦  y2*2(z2)> 

where  the  prime  denotes  ordinary  differentiation.  The  strains  may  be 
obtained  from  Eq  (14)  and  Integrated  to  obtain  the  displacements 
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where 


\  -  2R  {  Pi  *!  (zj)  +  p2  *2(z2)  } 

Uy  =  2R  t  <ll  *1  (Zl)  +  Q2  *2(Z2)  ) 


Pjj  =  811^  +  812  “  81611^ 

“  812MIJ  822/u^  -  626 


Equations  (14)  and  (15)  together  with  traction  boundary 


conditions 


*x  “  V’x  +  Txyny  =  91 


‘y  ’  Txynx  +  Vy  *  s2 


or  displacement  boundary  conditions 


ux“  hl  1  “y  *  h2 


constitute  the  mathematical  problem  to  be  solved. 
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5.2.2  Fundamental  Solution:  Point  Force  Problem 


The  basic  relation  for  the  development  of  integral  equations 
for  the  solution  of  the  anisotropic  problem  is  the  solution  for  a  point 
force  In  the  infinite  anisotropic  plane.  Two  such  solutions  will  be 
required:  A  unit  force  in  the  x-dlrection,  and  a  unit  force  in  the 
y-directlon.  Utilizing  the  traction  formulae  (17)  it  Is  easily 
shown  that  on  an  arbitrary  closed  surface 


/‘xdS 

SJ 

/v3 


-  2R  +  U2*2l 
=  -2R  It*!  + 


(19) 


where  d  ])  denotes  the  jump  in  the  enclosed  quantities  for  a  full 
cycle  of  S.  If  the  path  S  encloses  the  point  of  load  application, 
z0  =  x0  +  i  y0»  then  the  results  of  (19)  will  be  non-zero. 

Let  represent  the  stress  function  for  a  poir.t  load  in 
the  x.J  direction.  The  path  Integrals  in  (19)  are  seen  to  be  of  the 

J 

opposite  sign  to  the  applied  loads; 


2RI‘jl  *  '  Sj2 

2R  =  -«j, 


(20) 


We  will  now  use  indicial  notation  (x,y)  =(x,,  x2)  and  its  associated 
conventions.  The  index  k  will  never  be  summed. 
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for  the  point  load  solutions.  Functions  which  satisfy  (20)  for  any 
closed  path  around  z0  art 


*jk  '  AJk  ,09  <zk  '  Zk.> 

where  z.  =  xQ  +  u,v0.  In  what  follows  z.  will,  for  convenience 

Ko  R  Ko 

only,  be  taken  as  the  origin,  z.  =  0.  It  may  be  i>hown  by  suitable 

Ko 

Investigation  near  z^  =  0  that  (21)  satisfies  the  requirements  of  a 
point  force  [4].  Since  it  is  easily  shown  that 


(21) 


|[  log  zfc  J  «  2iri  ,  1  =  /T  (22) 

(20)  leads  to  the  result 


Ajl  "  *jl  +  Aj2  "  ^j2  =  6J2/2it1 

ylAjl  ”  plAjl  +  u/j2  ”  p2*j2  =  ”6jl/2,,i 


(23) 


It  is  also  required  that  the  displacement  field  surrounding 
the  applied  be  single-valued.  That  Is 

(C  Uj  2=  0  j  =  1,  2  (24) 

Substitution  of  (21)  into  (15)  and  taking  the  jump  around  a  closed 
path  we  find  in  addition  to  (23) 

plAj1  -  plAj1  +  p2A j 2  ’  ¥j2  =  0 

(25) 

qlAji  *  qlAj1  +  q2Aj2  ’  q2*j2  =  0 
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Equation  (27)  become  singular  when  =  u2  =  1,  but  it  will  be  shown 
that  may  be  found  for  very  nearly  Isotropic  materials. 

We  now  define  two  tensor  fields:  The  first  Is  and 
corresponds  to  the  displacements  for  the  stress  function  (21)  according 
to  (15) 

*  2R  {PilAj1log  z]  +  P12Aj21°3  z2}  (28) 

where  P1|(  =  pk  »  P2k  =  q^.  Taking  the  derivatives  of  (21)  at  zk 
according  to  (14)  and  substituting  into  (17) ,  tractions  on  an  arbi¬ 
trary  surface  are  found 

Tjj  s  2R  {Qj i (jij n^ -n2)  Aj / z-|  . 2  (^2^l"*^2^  ^j2^2^  (29) 

where 

ffti  ■ 
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'g^g.f  gwi^grewj^^  W-^ig^wegpwK!^^ 
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5.2.3  Boundary- Integral  Equation 

Since  the  governing  partial  differential  equation  (10) 
admits  no  real  characteristic  surface  the  problem  is  elliptic  and 
the  stresses  and  displacements  are  continuous.  Under  such  circum¬ 
stances  it  is  easily  verified  tfs.\t  Betti's  reciprocal  work  theorem 
at  the  surface  must  be  valid 

/Vids  -  / VidS  (3,) 

s+r  s+r 


The  surface  r  is  a  circle  of  vanishing  radius  c  surrounding  the  point 
load;  it  is  added  to  ex^ude  the  singularity  from  the  volume.  The 
second  Integral  in  (31)  is  convergent  as  e  -*•  0.  For  continuous  u.j 
it  is  sufficient  to  investigate  the  behavior  of  the  Integral 

Lim  r 

e  +  OJ  Tj.dS  (32) 

r 

At  a  circle  centered  at  the  applied  load  it  is  seen  that 
wknl’n2  =  "(n^050  “  sine)  (33) 

and  dS  =  ede,  0  <  e  <  2n.  Extracting  from  (32)  the  variable  part 
it  is  sufficient  to  find 


/ 


Wn2  dS 
Zk 


2* 


w^cose-sine 

M^sino+cose 


o 


de 


(34) 


1 

2 
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which,  upon  rearrangement  becomes 


£11 

f  Vrn2 

J 


dS  *  u. 


d(tane) 

l-p£tanze 


-  f'S> 


cose  d(cose) 
"n+yjjcos^e-^ 


Equation  (35)  can  then  be  integrated  directly  to  obtain 


f  vr"s 


-  log  [cose  -  p.sine] 


Taking  the  real  part  of  the  argument  of  the  log 
p£  *  (cose  -  arsine) ^  +  (b^sine)^ 


and  the  imaginary  part 
l»k  *  -  tan  _1 


b^slne 

cose  -  arsine 


the  result  to  (36)  is  found  to  be 


n 

[  vrn; 
J  2k 


dS  =  2wi 


Substitution  of  (39)  into  (32)  and  using  (23)  leads  to  the  usual 
Somigliana  identity  for  the  interior  displacement 
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r v y-e^y****^ *&*,  -*■  +  vr'\*-'P>cv.» 


^oiv^w)1  an;  **4^  'j£*£*p£*?T  .■* 


Ujd.) 


-  / Vv  2“>  ui(2k)<ls(2k) 

S 

+  /w  2°*  V2^^ 

S 


(40) 


The  Boundary- Integral  Equation  is  found  in  the  usual 
way  [2]  by  allowing  z0  to  approach  the  boundary  from  the  inside  and 
evaluating  the  jumps  in  the  singular  integrals  in  (40).  A  simple 
means  for  evaluating  the  jump  is  to  place  zc  at  the  surface,  augment 
the  surface  as  shown  in  the  figure  and  integrate  (40). 


In  this  case  u^-ng  -  u^cose  +  sine  since  the  normal  (n^ ,  ng)  points 
outward  from  z0.  The  range  on  e  Is  -  s  i  9  <  t  -  o.  Again  the  only 
significant  integral  is  in  the  first  integral  in  (40) 


Tt-a 


ttknrn2 

zk 


ede 


/ 


ukctse  -  sine 
ursine  -  cose 


de 


(41) 


mmmmmmms  .w 


which,  by  the  same  steps  as  above,  becomes 


-a 

/ 

-a 


pknl~n2 

zk 


ede 


_  «  F  tan-1  (  V1ne  \  ‘ 

1  un  y  cose  -  arsine  ) 


(42) 


Substitution  of  the  limits  In  (42)  yields 


/pknl”n2 

-  ede  *  -  1 

zk 


(43) 


Again  using  the  relations  (23),  (40)  becomes 

V2  +  /T ji“idS  '  /  Vi* 
s  s 


(44) 


Equation  (44)  Is  the  Boundary-Integral  Equation  which  relates  unknown 
boundary  data  to  known  boundary  data.  Once  (44)  has  been  solved 
numerically  (§V),  (40)  can  be  used  to  obtain  interior  displacements 
and  stresses. 


5.2.4  Somiglicma’s  Identity  for  Interior  Strains ,  Stresses 


The  displacement  gradient  tensor  u.,«  can  be  calculated  from 

J  ^ 

(40)  by  differertlation  at  z0.  Since  a/ax^log  (zk~z0)3  =  -  a/ax^ 

[log  (z^-Zo)]  the  differentiation  may  be  written  in  terms  of  derivatives 
at  zk  by  a  change  in  sign.  Then 


S  S 


The  tensorial  strain  at  ?0  is  given  by  the  symmetric  part  of  (45) 

c5l  *?  <V  +  ut.j> 


(46) 


such  that 


2e 


/[*f  +  ]  Vs  -  /  [isf  *  ^f]  Vs  <47> 


The  kernels,  S^,  D^.  respectively  are  given  by 

Sj£1  =  "2R  {RtlQil(,,lnrn2)  Aii/Zl  +  Rf2Qi2  W’V'V  Aj2/z2} 

-2R  (w! n1-n2)  A^/z*  +  Rj^Qi2  (m2W  A£2/z2} 


D$t l  =  2R  {RtlPilAil  1  Z1  +  VizAj2/z2} 


+2R  /  z]  +  Rj2Pi2A£2/z2} 


(48) 


where  R]k  -  1,  R2k  a  ly  It  is  assumed  that  the  boundary  Is  piecewise 
flat.  Then  (47)  becomes 

2ejf  =  /Sj*iUidS~  /  Dj«t1dS  {4 

S  S 

The  stresses  can  be  determined  by  substitution  of  (49),  with 
*  2ej2»  ex  s  en»  ey  3  e22* 
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5,2.5  Numerical  Solution 


Following  the  procedure  used  in  the  isotropic  theory,  the 
boundary  displacements  and  boundary  tractions  are  assumed  to  be 
piecewise  constant.  When  this  is  assumed  over  the  M  boundary 
segments  (again  taken  as  straight  line  segments),  (44)  becomes 


M  M 

u^n)/  2+23  u.(m)  f  T..(n,m)dS  =  2  t.(m)  /  U..(n,m)d3  (50) 

J  m=l  1  J  m=l  1  J 


AS 

m 

Similarly  the  internal  strains  (49)  become 

M 

2e^(zJ  =  2  u.(m)  /  S^.  (z0»m)dS 

m=1  AS 

m 


AS 


m 


(51) 


M 

_  22  f  Djti^2°* 

m=l 


m)dS 


AS. 


m 


By  specifying  the  orientation  of  each  line  segment,  ASm, 
with  its  normal  (n-j,  n2)  the  integrals  in  (50)  and  (51)  may  be  solved 
for  explicitly.  The  notation  is  defined  in  the  figure  below 


zk  =  r(cos(5  +  uksin0) 

0  =  r  •  e.|  (52) 

dS  =  Dd(tane) 
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The  coordinate  system  (e-j ,  62)  is  taken  such  that  e^  is  in  the  direction 
of  the  outwn'd.  normal  and  e2  is  tangent  to  ASm,  going  from  "1"  to  “2" 
keeping  the  material  on  the  left.  Since  0  -  e  +  a,  where  a  -  cos'^(n^), 
(52)  can  be  written 


=  r  cose(cosa-sinatane  +  uk  coso  tane  +  t^sina)  (53) 

so  that 

zk  =  D  [(cosa  +  uksina)  +  (ukcosa  -  sina)  tane]  (54) 


The  closed-form  integrals  for  (50),  (51)  are  now  easily  ob¬ 
tained,  as  the  only  variable  is  tane.  Two  special  cases,  D  =  0  and 
the  multivaluedness  of  log  zk  will  be  discussed  below.  Defining 
integrals  of  the  variables  in  the  kernels  with  Al's  we  obtain 

AUji  =  /VS  =  2R  {PilAjlAlll  +  Pi2AJ2aI12} 

AS 

(55) 


£ Tj.dS  2R  {Q^i (y-j n-|-n2)Aji AI21 

AS 


+  Qi2(’‘inrn2)  A’2AI22} 


and  for  the  strains 
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ADj*i  =  2R{R-t1PnAj1Al31  +  R£2Pi2Aj2Al32} 

+  2R{RJ-iPi1A£1Al31  +  Rj2Pi2A^2Al32} 

ASj£i  =  "2R{R£1Qil(ulnl‘n2)Aj1Al41+^2Qi2(u2nl‘n2:^Aj2Al42} 
‘2R{Rj1Qil^1nrn2^VlAl41+Rj2Qi2^2nrn2^A£2Al42) 


The  integrals  are  easily  calculated  for  0  /  0 


-,■/ 


log  z.dS  - - — : — 

s  k  u^coso-sino 


aI2  =  aI3 


f  dS  _ _ 

J  h  V 


[zk(log  zk-l)] 

.2 


1 


OSa-Sina 


(log  zk) 


1 


Al4 


7 


dS  _  1 

Pkcosa-sina 


(-t)l 


The  case  for  0  =  0  may  be  deduced  as  a  special  result  of 
(57)  or  by  integrating  again,  with  proper  substitutions  for  zk  and 
dS.  Using  "±"  to  denote  the  cases  where  dS  =  +dr  and  dS  =  —  dr 
we  note  e  =  ±*/2  and 

zk  =  ±r  (ukcosa-sina) 


Substitution  of  (58)  into  the  integrals  in  (55),  (56)  we  obtain 


C. 

41,  -  /  log[±r(„kcos«-sln»)]  (±dr)  =  [2kOo9  zk-lH 


2  2 

Al2  *  Al3  =  ffv  -  y^cosa-sina  (1°9  V  j 

t  -1 


(59) 


4V  / 


dS  =  1 
z£  (u^cosa-sina)2 


H)f 


The  first  two  results  in  equation  (57)  contain  the  term  log 
zk.  The  log  is  multivalued,  and  has  t  jump  of  +2*  on  the  digital 
computer  as  0  passes  from  ir-e  to  ir-e.  To  account  for  this  on  the 
computer  the  change  in  the  imaginary  part  of  log  z ,  is  tested.  If 
a  change  of  more  than  it  in  the  imaginary  part  is  found  then  the 
result  is  corrected  by  adding  (±2ir)  to  the  imaginary  part  of  the 
log  zk* 
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5. 2. 6  Usage  Guide  for  ASISOT 

The  computer  program  Is  divided  into  three  major  sections, 
along  the  same  lines  as  the  solution  just  detailed.  The  first 
section  solves  the  boundary-integral  equations  (44),  producing 
a  fully  known  set  of  boundary  tractions  and  displacements.  The 
next  section  utilizes  Somlgll ana's  Identity  (51)  to  obtain 
stresses  at  specified  Interior  points.  The  final  section  deter¬ 
mines  stresses  at  the  surface  of  the  body,  using  the  tractions 
obtained  In  section  one,  and  the  tangential  derivatives  of  the 
displacements. 

The  boundary  solution  may  be  output  on  punched  cards 
If  desired.  This  option  allows  the  user  to  Input  the  boundary 
solution  directly,  and  the  program  will  begin  execution  of 
sections  two  and  three. 

5. 2.6.1  Problem  Size  Specifications 

The  program  allows  up  to  two  degrees  of  symmetry  of 

geometry  and  boundary  conditions.  Present  array  dimensions  limit 

the  number  of  boundary  segments  to  80  (320  with  symmetry),  but 

capacity  may  be  increased  by  changing  the  common  statements  labeled 

ARRAY1  and  ARRAY2.  A  number  of  other  cards  should  also  be  modified, 

and  are  listed  below,  by  card  number: 

ANI10065  ANI 15235 

ANI 10070  ANI20035 

ANI 101 00  ANI 5005 

ANI15050 
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The  number  of  Interior  points  which  may  be  specified  Is 
limited  to  200,  while  the  limit  on  surface  stress  points  Is  50. 
These  limits  may  be  Increased  by  changing  ARRAY3  and  ARPAY4, 
respectively. 

The  time  required  for  execution  of  each  subroutine  Is 
calculated  through  an  assembly  language  subroutine,  TIME.  Users 
of  computers  other  than  the  Uni vac  HOP  should  provide  their  own 
routine  for  this  purpose,  or  Insert  a  dummy  routine,  TIME(T). 

5. 2. 6. 2  Specification  of  Material  Constanta 

Material  constants  are  specified  through  four  matrices, 
listed  below: 

STIFF,  stiffness  matrix  (6) 

FLEX,  compliance  matrix  (4) 

MU,  solutions  to  the  characteristic  equation  (11) 

AX,  coefficients  o'  the  net  load  terms  In 
Lekhnltskll's  stress  function  (see  §11) 

The  coefficients  AX  are  calculated  In  a  program  called 
AXCALC,  which  serves  as  an  auxiliary  program.  All  the  matrices 
described  above  may  be  obtained  as  punched  output  from  AXCALC,  and 
Inserted  directly  Into  the  data  deck. 
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5. 2.6.  3  Use  of  AXCALC 

This  program  makes  use  of  a  capability  previously  detailed  [t>J 
to  solve  the  characteristic  equation  for  a  generally  anisotropic 
material,  symmetric  about  Its  mid-plane.  The  algorithm  Is  specifically 
designed  for  a  layered  material,  since  major  use  will  be  found  in 
the  area  of  advanced  fiber  composites.  AXCALC  requires  as  input 
only  the  stacking  sequence  of  the  laminate,  and  the  material  properties 
of  the  Individual  laminae,  in  their  principal  material  directions. 

Input  data  required  by  AXCALC  is  summarized  in  the  table 
below.  Items  which  appear  on  the  same  card  are  bracketed,  and  the 
format  for  each  card  appears  opposite  the  first  item  on  that  card. 


INPUT  FOR  AXCALC 

ITEM 

DESCRIPTION 

FORMAT 

NC 

Number  of  laminates  to  ne  analyzed 

13 

TITL 

Title  card  -  any  80  characters 

16A5 

NANG 

Number  of  Individual  laminae 

13 

Ell 

Major  Young's  modulus  (single  lamina) 

(3E15.10,  F10.4) 

E22 

Minor  Young's  modulus 

G12 

In-plane  shear  modulus 

VI 2 

Principal  Poisson's  ratio 

THETA(I) 

Orientation  angles  of  the  individual  laminae 
(angles  measured  from  the  x  axis  to  the  major 
axis  of  the  layer) 

10F8.3 

THICK(I) 

Thicknesses  of  individual  laminae 

8F10.8 
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S.  2.6.4  Identification  of  Parameter*  in  AHISOT 

All  parameters  necessary  for  use  of  the  Integral  equation 
program  are  defined  below.  For  easy  reference,  the  more  Important 
ones  are  defined  on  cards  numbered  ANI5065  -  ANI 1 51 20  In  subroutine 
SETUP.  All  the  descriptions  below  are  summarized  In  Table  2,  and 
parameters  which  may  be  described  concisely  appear  only  In  Table  2. 

NODE  (I,J)  -  a  temporary  array  which  stores  the  two  node 
numbers  associated  with  each  segment  number 
('rear'  number,  then  'forward*  number) 

XYZH  (I,J)  -  a  temporary  array  containing  the  and 
coordinates  of  each  node.  In  that  order. 

PTIN  (I,J)  -  coordinates  of  the  Interior  stress  solution 
points  (xj,*2).  These  are  read  only  If  NPT 
t  0. 

NBDY  (I,J)  -  three  segment  numbers  necessary  for  the 

surface  stress  solution,  read  only  if  NBDYP 
i  0.  For  each  segment  on  which  a  stress 
solution  Is  desired,  three  segment  numbers 
are  read.  In  the  following  order:  segment 
number  on  which  stress  solution  Is  desired; 
segment  number  for  the  "rear"  difference  v»!ue 
of  Au/As;  segment  number  for  the  "forward" 
difference  value  of  au/as.  The  'forward'  direction 


JJAI UUJH 


Is  taken  as  the  positive  "s'*  direction,  always 
directed  along  the  boundary  of  the  body  with 
the  material  on  the  left. 

5. 2. 6. S  Boundary  Conditions 

Both  traction  and  displacement  boundary  conditions  are  possible, 
and  are  Input  by  means  of  a  NAMELIST  read  statement.  The  boundary 
data  Is  preceded  and  followed  by  control  cards,  as  shown  below: 

_$  BDYCON 

r 

|data 

_$  END 

All  boundary  conditions  are  Initialized  to  zero  and  the 
boundary  condition  key,  LDC(I),  Is  Initialized  to  1,  meaning  a  traction 
boundary  condition  Is  assumed  for  each  segment.  Setting  LDC  =  2 
means  a  displacement  boundary  condition  will  be  specified  for  the 
given  segment  and  direction.  Traction  conditions  are  specified  by 
a  parameter  TCON(I),  while  displacement  conditions  are  specified  by 
UCON(I). 

All  Xj-dlrectlon  boundary  data  Is  stored,  followed  by 
x2-di recti on  data.  The  value  of  the  subscript  I  for  the  boundary 
parameters  (UCON,  TCON,  LDC)  is  determined  In  the  following  manner. 

For  data  specified  In  the  x^  direction, 

I  *  the  segment  number  (N),  but  for  the  x2  direction 
I  =  N  +  NSEG,  whore  NSEG  Is  the  total  number  of  boundary  segments. 

For  example  consider  a  body  which  has  been  represented  hy  24  segments. 

\ 

i 

\ 
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Tractions  specified  on  segment  6: 


_TC0N(6)  -  .100E04,  (x. 

TC0N(30)  =  .325E04,  (x, 

“■  i 

Displacements  specified  on  segment  9: 
_LDC(9)  =  2,  LDC( 33)  =  2, 

_UC0N{9)  =  0.001,  (x 

_UC0N(33)  =  0.004,  (x, 


Displacements  set  at  zero  on  segment 

_ LDC( 1 )  =  2,  (x 

_LDC(25)  =  2,  (x 


traction) 

traction) 


displacement) 

displacement) 

) 

) 
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S.2.6.6  Input  Data  for  ANISOT 


ITEM 

DESCRIPTION 

FORMAT 

NC 

Number  of  problems  to  be  solved 

13 

TITL 

Title  card  -any  80  characters 

16A5 

NSEG 

Number  of  segments  on  the  boundary 

1015 

NSYM 

Degrees  of  symmetry  (y,  then  x) 

NNOD 

Number  of  boundary  nodes  connecting  segments 

I PUNCH 

=  0,  the  boundary  solution  will  not  be  punched 

ISTRS 

-  0,  plane  strain  ;  *  1  plane  stress 

IBDY 

f  0,  boundary  data  read  from  cards 

NPT 

Number  of  interior  points  for  stress  solution 

NJDYP 

Number  of  points  for  boundary  stresses 

NODE (1,0) 

Nodes  associated  with  each  segment  number 

2413 

XYZM(I,J) 

(x^.x^)  coordinates  of  each  node 

16F5.3 

STIFF* 

Stiffness  matrix  (6) 

6E13.7 

FLEX* 

Compliance  matrix  (4) 

6E13.7 

MU* 

Solutions  of  the  characteristic  equation  (11) 

4E20.10 

AX(I,J)* 

Coefficients  of  stress  function  (see  §11) 

4E20.10 

f Boundary 

a  NAMELIST  read  statement 

(Conditions 

(See  standard  references  for  format) 

PTIN(I,J) 

Interior  Stress  Solution  points  (x^,  x^) 

16F5.3 

NBDY(I,J) 

Segment  numbers  associated  with  surface 

stress  solutions. 

2413 

♦Cards  available  as  direct  output  of  AXCALC 
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5.2.8  Listing  for  AXCALC  Computer  Program 


C 


OETERMTNFS  COEFFICIENTS  OF  NET  LOAD  TERMS  FOR  ANISOTROPIC  STRESS  FTM  AXC10000 


COMMON  /  MATCON  /  Ell»  E22*  G12#  V12*  E(3*3)*  BETA(3*3)  AXC1O0O5 
COMMON  /  (jEOMTY  /  THETA(10>*  THICK(IO)*  NANG*  PI  AXC10010 
COMMON  /  R0OTS1  /  LAMUA(PO)  AXC10015 
OIMFNSION  STIF (b) »  KLEX(6)»  0ELTA(2»?)  AXC100P0 
OIMFNSION  TITL(16)»  C ( 4 » 4 ) *  B(4»4)»  RHS(4>»  X(4).  R(4)»  XI(4»4)  AXC10025 
COMPLEX  LAMOA  AXC10030 

AxCino.Xb 

NC  =  NIIMRER  OF  CASES  TO  BE  SOLVED  SFOUENTIAlLY  AXC10040 
N  =  OKDFR  OF  CHARACTERISTIC  EttUATlON.  AXC10045 
THETA  =  ANGLE  FROM  THE  X-AXIS  TO  THE  1-AXlS#  IN  DEGRFES.  AXC10050 


Ell.  EPP#  VIP#  AND  G12  ARE  THE  MATERIAL  PROPERTIES  OF  THF  AXC10055 

INDIVIDUAL  LAMINAE.  AXCIOOEO 

K  =  NUMBER  OF  LAMINAE  IN  THE  LAMINATE.  AXC10055 

THICK  =  THICKNESS  OK  EACH  LAMINA  IN  THE  LAMINATE.  AXC1O070 

AXC10075 


Pi  =  3. 1 4l59Pb536 
DO  15  I  =  1*P 
DO  15  J  =  1»P 
DELTA ( I . J)  s  0.0 
15  IF  (I.EO.J)  DEL T A ( I # J )  =  1.0 
HEAr»(b«ino>  NC 
45  WRlTE(b#105)  NC 
NC  =  NC  -  1 
IF  INC.LT.O)  STOP 
REAn(5.1in)  T1TL 
HE AO ( 5# IPO )  NANG 
KEAillb.  1P5)  Ell *E22»G12# V12 
HEA0(5.I30)  (THETA ( I ) *  1  =  1#NANG) 
REAn(S« 135)  (THICK(I)#  1  =  1#NANG) 
CALI  MHLTMU 
K  =  0 

DO  ?5  I  =  1*3 
DO  35  J  =  1*3 
K  =  K  ♦  1 
STIF(K)  =  E(I* J) 


AXC100»0 

Axcino»»5 

AXC100P0 

Axcino°5 

Axcmmo 

Ay.C101n5 

Axcinno 

AXC10115 

AxciniPo 

AXC101P5 

AXC10130 

AXC10135 

Axciniuo 

AXC10145 

Axciniso 

Axciniss 

Axciniso 

AxCiniAS 

AXC10170 

AXC10175 


25  FLEx(K)  =  BETAd.vI) 

WRITE  (7.10OO)  STIF 
WRITE  (7*1000)  FLEX 
WRITE (5# 115)  TITL 
WRITE (5* 140) 

WRITE (5» 145)  Ell*  E?2 *  G12#  V12 
WRlTE(5»lsO) 

WRITE (5* 1 55)  (THFTA(L)*  L  =  l*NANb) 

WRITE (5*1 bQ ) 

WKlTE(B.lB5)  (THICK(L)*  L  =  1 *NaNG) 

WRITE  (f*»  1H0) 

WRlTE(f..l75)  ((E(I*J)»J  =  1*3)*  I  =  l * 3f 
WRITE (5* 190 ) 

WRlTE(f»#1  75)  ( (dETA(  I*  J)  •  J  =  1*3)»  T  =  1*3) 
WRlTE(f»#195> 

WRlTE(5.?00)  (LmMDA(I)*  I  =  1*4) 

ALPH1  =  REAL  (  LAmOm (1)  ) 

GAM1  =  ARS (  AIMAG(  lAmDa(1>  )  ) 

ALP H?  =  REAL (  LaMDA (3)  ) 

GAM?  =  ABS (  AIMaG(  LAMOA (3)  )  ) 

WRITE (7. PMO )  ALPH1*  GAM1 ♦  AlPHP*  gAm? 


AXC101AO 

AXC101A5 

AXC101Q0 

AXC101°5 

AxClOPOO 

AXC10205 

AXC10210 

AXC10215 

AXC102PO 

AXC102P5 

AXC10230 

AXC10235 

AXC10240 

AXC10245 

AXC102S0 

Axcmg^s 

AXC10250 

AXC10255 

AXC10270 

AXClCpTS 

AXC102A0 
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ui.l)  =  2.*H£TA(1»  1  )*ALPHl*GAMl  -  HFTA  ( 1  .3;  *GA?4i 

AxCi ?2A5 

C(l*3>  =  />.*BETm(1»1>*ALPH2*GAM2  -  HFTA ( 1  ,3) *GAm2 

AXCiOpRO 

C  ( 1*2)  =  rt£T  A (1*1)  * (ALPHI **2—o Awl  **2 ) 

♦  neTrt(l»2)  -HFTAd  »3)*AI.PMlAxCin2°5 

CC1.4)  =  HETA(1»1 >*(AlPH?**2-GAw?**2) 

♦  n£TA(i»2)  “HFTAd  »3)*ALPH2AXC10300 

C(2*l)  =  HE  TA ( 1  *  2 ) *(»Awl-HETA(2»2 ) *GAM1/ (  ALPhI  **2+GAMl**2> 

AXC10305 

C(2.2>  =  HETA(1#2)*«LPH1  +  d£ TA  (2*2 )  *ALPHl/(  ALPH1**2+GA.M1  **2 ) 

AXC10310 

1  -  H£1A(2*3) 

AXC10315 

C  (2*3)  =  HETA(1#?)*<-.Am?-BETA(2#2)*GAM2/(AlPh?*’*2+6Am2**?) 

AxC10320 

C  (2.4)  =  HETA(1*?)*MLPH2  +  fc>EIA(2*2)*ALPH2/(ALPh2**2+6A*i2**2) 

AXC10325 

1  -  h£TA(2.3) 

AXC10330 

C (3* 1 )  =  0.0 

AXC10335 

C (3*3>  =  n. 0 

AXC10340 

C(3*2>  =  1*0 

AXC10345 

C(3*4)  =  l.n 

AXC10350 

C ( 4  *  1 )  =  GAM1 

AXC10355 

C (4*3)  =  GAM2 

AXC103A0 

C(4*2)  =  ALPHI 

AXC103A5 

C ( 4  *  4 )  =  ALPH2 

AXC1O370 

DO  3b  I  =  1*2 

AXC10375 

DO  35  J  =  1*4 

AXC1O3P0 

35  C(I.J)  =  C(I*J)  *  EP2 

AXC10345 

DO  05  1=1 *4 

AXC10.3°0 

DO  05  J=l*4 

AXC103Q5 

05  H(I.J)  =  C(I*J) 

AXC10400 

CALI  1NVR  (C*  4*  DUwMY.  0»  OET*  4*  u) 

AXC10405 

DO  111  I  =  1*4 

AXC1O410 

DO  H)  0  =  1*4 

AXC10415 

XX  (  T  « J)  =  0.0 

AXC1 0420 

1)0  10  K  =  1.4 

AXC1P425 

10  Xl(T.J)  =  XI ( I  * J)  ♦  C(I.K)  ♦  H(K*d) 

AXC1O430 

WKlTt(A.PSO) 

AXC104.35 

WHITE (A.? 10)  ( (Al(I • J) . J=1.4> *1=1*4) 

AXC1A440 

DO  uO  K  =  1*2 

AXC1044  5 

RHS(l)  =  O.fi 

AxC 10450 

hhS(2)  =  n.n 

AXC10455 

HrlS  (3)  =  -0FLTA(K»?)/(4.*PI) 

A XC 10450 

HhS ( 4 )  =  DELTA (K » 1)/(4«*PI) 

AXC104A5 

WKlTE(A.?hO) 

AxrmuTO 

WRlTE(f*.2lO)  (RMS  ( I )  *  1  =  1*4) 

AXC1A475 

DO  20  I  =  1*4 

Axri04«0 

X(I>  =  n.n 

AxC104«5 

□0  20  J  =  1.4 

AxC104c»0 

20  X(I)  =  X(I)  +  Cd.j)  *  HHS(J) 

AXC104Q5 

WHITE (5*270)  ( X ( I ) *  1 =1 *4 ) 

Axemsno 

WHITE (7*  2H0 )  ( X ( I ) *  1=1*4) 

AXC10505 

Do  30  I  =  1.4 

AXC10510 

R  ( I )  =  II. 0 

AXC1A515 

DO  30  J  =  1*4 

AXC10520 

30  H ( I )  =  H ( I )  +  B( I  * J)  *  X(J) 

AXC10525 

WRITE (5*  250 ) 

AxC 10530 

WRITE  ( .'i»  210 )  (R  ( I  >  *  1=1*4) 

AXC10535 

4(1  CONTINIIF 

AXC1A540 

GO  TO  45 

AXC10545 

100  FORMAT! 13) 

AXC105PO 

lob  format (ihi* 13) 

AXC10555 

110  FORMAT (15A5) 

AXCIO550 

115  FORmA T ( 1  HI »  1 5A5> 

AXC105A5 

120  Format (21.3) 

AXC 10570 
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12b  FORMAT !3Fl5.10»F10. 4) 

130  format mofb.3) 

135  FoRmAT(HFIO.H) 

140  FORMAT  !lHi1»3AX# •Ell*#7X#*E22*»7x#*Gl2*#7X» • Vl2* »?X* *V21 • ) 

14b  FoRmATUH  #30X#SE10.4) 

ISO  FORMAT! 1H0#30X# ‘ORIENTATION#  TOR  10  BOTTOM#  IN  DEGREES* ) 

iss  Format Uflx#Fiu.s) 

lt»0  format  !  i  ho*  3ox#  *  lamina  THICKNESS#  Top  TO  oOTTOM.  IN  inchfs*) 
lhb  FORMAT (4AX#F10»7) 

170  FORMAT! 1  HO# 30X# ‘THE  A —MATRIX  FOR  THIS  LAMINaTE  Is*) 

17b  FORmAK  !30X#3!E14»5#5x)  )  #/) 

1 HO  Format (1  HO# 30X# *  THE  E-MATKIX  FOR  THIS  LAMINaTE  Is*) 

190  FORMAT! 1  HO. 30X. ‘THE  PLANE-STRESS  bETA  MATRIX  IS*) 

19b  FORMAT! 1  HO# POX# ‘THE  MU-VALUES  FOR  THIS  LAmInATE  ARE*) 

200  FORMAT!  ?!SX»F20. 12) # • J* ) 

210  Format! 1/4E14. «)  ) 

?so  format  i  //////#  iox#  •  the  iuendity  matrix  is  *»  //  ) 

2f»0  FORMAT!  //////  #  10X  «  *THE  RHS  VECTOR  *  .  ////  ) 

270  FORMAT  i  //////  #  IiiX  •  *  A1  =  •  #2El4.7.  •  J* ./  10V.*A2  =  *#2E14.7# 

1  *J«#  ////  ) 

280  format  !4F2n.io) 

1000  FORMAT  1 8E 1 3 • 7 ) 

END 


AXC10575 

AXC105BO 

Axcmsns 

Axcmspo 

AXC105P5 

AxClOSOO 

AXC10605 

AXC5O610 

AXC10615 

AXC1O620 

AXC1R625 

AXC10630 

AXC10635 

AXC10640 

AXC10645 

AXC10650 

AXC106S5 

AxC106f.O 

AXC106S5 

AXC10670 

AXC10675 

AXC10680 

AXC10605 
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SUBO0IIT INK  rtllLTMiJ 

Common  /  MATCON  /  Ell»  E22*  G1 2*  Ml?t  E(3*3)*  PETA(3*3> 
Common  /  oeomty  /  Theiauo).  iHirKiio)*  nan«»  pi 
common  /  ROOTS1  /  LMMJA  (2(1) 

OIMPNSION  QHilO.3.3).  Al3»3)»  CoF«C(3*3)*  TkAwS(3»3) 
OIMFNSION  0(11) 

complex  lamda 

K  -  NANO 

V21  =  E22*V12/E11 

Oil  =  Fll/il.U  -  t/l2*V2l> 

022  =  F22/(i.u  -  Vl?*V21 ) 

012  =  V21*Qll 
Ot>6  =  012 
M  -  0.0 
DO  111  L  :  1>K 
H  =  H  ♦  THlCK(L) 

CONTINUF 

00  15  L  =  l.K 

THRAO  =  PI*THETrt(L)/lbO.O 

T  =  COS(THRAD) 

S  =  SIN(TrtRAO) 


OH (l  *1*1  )  = 
Obi  I  »?*?)  = 
Obil  »1*2)  = 
Qbil  *1*3)  = 

t 

Obil  .2.3)  = 

t 

Obd  » 3 » 3 )  = 


011*(T**4)  +  2  .  *  ( 0 1 2  ♦  2.*088)*( (5*T)**2)  +  r>22*(S**4) 
OH*(S**4)  +  2.* iwl 2  ♦  2.*088)*( (5*T>**2>  ♦  02?*(T**u) 
toil  +022  -  4  •  *068)  ■*  (  (S+l  )  **2 )  ♦  012*  t  (5**4)  +CT+*4)} 
(Oil  -012  — 2.*0ob)  *5*(T**3)  ♦  (yl2  -  022  ♦  2,*068>*T* 
(S**3) 

(Oil  -012  -2.*0o6)*l*(S**3>  ♦  i.jl2  -  Q22  *  2.*068>*S* 
i T  **3) 

(oil  ♦  022  -  2.*tol2  ♦  u86> >*( (S*T)**2>  +  088*((S**4) 

*  ( 1**4)) 

OH ( L  » 1 *2 ) 

Cb(L*2»3> 

Ob i L  » 1 • 3 ) 


088* ( t  S**4 ) 


Obil  »2»  1  )  =  OH i L » 1  *2 ) 

Obil  *3*2)  =  Ob(L.2»3> 

Obil  *3*1  )  =  Ob i L » 1 » 3 ) 
is  Continue 

oo  20  t  =  1*3 

UO  25  J=  1*3 

A( I . J)  —  0.0 

00  30  L  =  l.K 

ASUM  =  OR(L*T» J)*rHlCK(L) 

A ( I . J)  =  Ail.JJ  *  ASUM 
30  continue 

t(I.J)  =  a ( t  » J) /H 
25  CONTINUF 
20  CONTINUF 

OET  =  (F ( l » 1 ) *E 1 2.2 ) *c 1 3*3) )  ♦  (F( l ,2 )*F (2* 3) *E(3. 1 ) ) 

1  (F(l»3)*E(2»l)*c(3.2) )  -  (E(3.1 >*E(2»2>*F( 1 *3) ) 

2  (F(3»2)*E(2»3)*t(l»l))  -  <E(3,3)*E(2»1>*F<1  »2)> 


CoFftCil.l)  =  <E<2»2>*E(3.3> ) 
CoFaC(1.2)  =  — 1 .0*( (E (2. 1 ) *£ (3*3) ) 
CoFACil.3)  =  (E(2»l )*E(3. 2) ) 
C0FAC(2.1)  =  -1.0*( (E(1.2)*ci3.3) ) 
CoFAC<2»2)  =  CF ( 1  *  1 )*E<3*3> ) 
CoFaC (2*3)  =  - 1.0*((Ell»l)*E(3»2) ) 
CoFaC (3* 1 )  =  (Ell»2)*E(2»3) ) 
CoFaC (3*2)  =  -1.0*((Eil.l)*t(2»3) ) 
CoF  AC ( 3»  3 )  =  <E< l*l)*t<2*2> ) 


-  (E(3*?)*t(2»3) ) 

-  (E(3*l ) *t(2»3) ) > 

-  (F (3. 1) *t(2»2) ) 

-  (E ( 3»2>  *F ( 1 *3) ) ) 

-  (E(3*1)*E(1*3)» 

-  (F(3.1)*E(1.2))> 

-  (E(2.2)*c(1.3) ) 

-  (E(2. 1 ) *t ( 1 *3) ) ) 

-  (F (2* 1 ) *t ( 1 *2) ) 


uo  35 


=  1.3 


Axci^ono 

Axri50O5 

axci^oio 

AXC15015 
AXC1S020 
AXC15025 
AxCl ^030 
AXC1S035 
AXC15040 
AXC15045 

AxC150^0 

AXC15055 

AXC15080 

AXC 150^5 

AXC15070 

axciso;; 

AXC150A0 

AXC150«5 

AXC150°0 

AXC1S095 

Axei^mo 

AXC15105 

AXC15H0 

AXC15H5 

AXC15120 

AXC15125 

AXC15130 

AXC15135 

AXC151U0 

AXC151U5 

AXCI^ISO 

AXC15155 

AXC15180 

AXCl^lAS 

AXC14170 

AXC15175 

AXC15ino 

AXC151A5 

AXC151O0 

AXCI5105 

AXCl^OO 
AXC 15205 
AXC15210 
AXC15215 
AXC15220 
Axfl5225 
AXC15230 
AXC152^5 
AXC15240 
AXC 1524 5 
Axei5250 

AXC15255 

AXC15280 

Axei5285 

AXC15270 

Axei5275 

AXC152A0 
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Uo  ttO  J  =  1,3  AXC152R5 

TKANS(ItJ)  =  COFAC  ( J»  i )  AXC15240 

HETA(I#J)  =  ( TRANS ( I  #  J) )/OF  f  AXC152<»5 

40  CONTINJIF  AXC1S300 

3S  CoNTINIIF  AXC15305 

0(1)  =  rtFTA ( 1*1)  AXC1S310 

0(2)  =  -2.0*HETA(1#3)  AXC15315 

D(3»  =  ?.n*HETA(l#2>  +  hE1A(3#3)  AxC153?0 

0(4 )  =  — ?.0*RETa(2*  3)  AXC1S325 

0(5)  =  HFTA(2.2)  AXC15330 

CALI  ROOTS  (0*4#  LAMDm  )*  AXC15335 

RETURN  A XC 15340 

EnO  A XC 1534 5 


♦Standard  root  solving  routine  called  here.  User  must  supply  sue)  a  routine. 
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SuBwOIITTNF  invr  t  a#  n»  b*  h#  l>#  IS#  JS) 

A  =  MATRIX#  DIMENSIONS  SnOwN#  IN  WHICH  A  SuBMATRIX  TN  UPPER  LEFT- 
HAND  CORNER  IS  TO  Be.  INVERTED 
N  =  OPnHR  OF  SllBMATRIX 
0  s  UETERMINANT 
M  =  U»  THEN 

B  =  Bt  1  » 1 )  IN  CALLING  ROUTINE#  AND  INVERSE  STOPEO  IN  A 
M  =  1#  THEN 

B  -  BIN#  1 )  IN  CALLING  ROUTINE#  AND  A-INVEt<SE  *  B  HETURmFO  IN  B 
M  =  M  (.GT.  1).  THEN 

B  =  H(N.M)  IN  CALLING  ROUTINE#  AND  A-INVEkSE  *  b  RETURNED  IN  B 
A-INVERSE  IS  NOT  DESTROYtD  IN  LAST  TwO  CASES 

DIMENSION  A(IS#JS)»  B(  1#1>#  INtlOO#?) »  IPClOU)#  PClOO) 

0  =  1.0 


00 

03 

J  = 

1 

»N 

03 

IPt 

.1) 

=  ft 

00 

AO 

I  - 

1 

»N 

AmAx  = 

0-0 

uo 

18 

J  = 

1 

»N 

IF 

tIPtJ)  - 

1) 

06# 

18# 

06 

06 

uo 

15 

K  = 

1 

»N 

IF 

tIPtK)  - 

1) 

09# 

15. 

72 

09  IF  (AHS(AMAX)  -  AbS(A(J,K))>  12#  IS#  15 
12  IK  =  J 
IC  =  K 

AMAX  =  A ( J#K ) 

15  Continue 
18  continiif 

IP(TC)  =  IP(IC)  ♦  l 
IF  (IR  -  IC)  21#  33#  21 
21  U  =  -U 

Do  ?4  L  =  1  » N 
Swap  =  aur.l) 

A  t Ip»L)  =  A ( IC»L) 

24  A ( IC >L)  =  SWAP 
IF  <M>  33#  33#  27 
27  00  30  L  =  l*M 
Swap  =  rur.d 
Htlw.L)  =  B(IC»L) 

30  B ( IC *L)  =  Swap 
33  IN(T.I)  =  IR 
In(T#2)  =  IC 
Ptll  =  AtlC.IC) 

D  =  D  *  PtI) 

A  ( IC  » IC  )  =  1.0 
Do  3ft  L  -  l »N 
36  A ( ] C  »L)  =  At  TC»L)  /  PtI) 

IF  tM)  45#  4S»  39 
39  00  U2  L  =  1 »M 
42  Bl IC#L)  =  Bt IC#L)  /  P(I) 

45  00  AO  LI  -  1 *N 

IF  (Li  -  IC)  4ft#  bO »  48 
4R  T  =  AtLI » IC) 

AtLI rIC)  =  0.0 
00  'll  L  —  1  »N 


AXC20000 

AXC2O0O5 

AXC20010 

3XC20015 

AXC20020 

AXC2O025 

AXC20030 

AXC20035 

AXC20040 

AXC20045 

AXC2O0S0 

AXC2°0S5 

AXC20060 

AXC20065 

AXC20070 

AXC20075 

AXC2O0R0 

AXC200A5 

AXC20090 

AXC20095 

AXC20100 

AXC20105 

AXC20110 

AXC20115 

AXC20120 

AXC201?5 

AXC20130 

AXC20135 

AXC20140 

AXC20145 
AXC201S0 
AXC201S5 
AXC20160 
AXC20165 
AXC20170 
AXC20175 
AXC20180 
AXC201R5 
AxC2r i°o 
AXC20195 
AXC20200 
AXC20205 
AXC20210 
AXC20215 
AXC20220 
AXC20225 
AXC20230 
AXC20235 
AXC202U0 
AXC20245 
AXC20250 
AXC202S5 
AXC20260 
AXC20265 
AXC20270 
AXC20275 
AXC202A0 
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51 

A(L1#L)  =  A(L1»L)  -  A(IC»L>  *  T 

AXC202A5 

IF  (H)  60*  60*  *-4 

AXC20290 

54 

00  S7  L  =  1»M 

AXC20295 

57 

3(L1 »L)  =  B(L1#L>  -  B(IC#L>  *  T 

AXC2O300 

60 

Continue 

AXC20305 

00  *9  1  -  1 »N 

AXC20310 

L  =  N  ♦  1  -  I 

AXC20315 

IF  (INiL’l)  -  IN(L»?))  63#  69#  63 

AXC20320 

to3 

JK  =  INU..1) 

AXC20325 

JC  =  lNiLi2) 

AXC20330 

00  A6  <  =  1  *  N 

AXC20335 

IF  (N.FO.ll)  JH=K 

AXC2O340 

Swap  =  a(k#jr) 

AXC20345 

AIK.JR)  =  A(KiOC) 

AXC20350 

65 

A(K.JC)  =  SWAP 

AXC203S5 

69 

Continue 

AXC20360 

72 

RETURN 

AXC20365 

100 

format  (//inFi3.5) 

AXC20370 

300 

Format  (ihd 

AXC20375 

END 

AXC203A0 

21S 


n  n  n  non  non 


5.2.9  Listing  for  ANISOT  Computer  Pr^ram 

MAIN  PROGRAM  —  INITIALIZES  OATA  -  CALLS  SuRrOuTINES 

Common  /  arrayi  /  xyz(ioo»2»2J »  ucon(20o>»  tcon(?oO)»  locipoo) 
common  /  ARRAYS  /  Bi/Al(200) 

COMMON  /  MATCON  /  Pi»FMU»PO(2.2)  »MU(2)  »FLEX(#>)  *STIF(#>)  »AV(2»?> 
Common  /  CONTRl  /  NSEG#  NSYM#  NIOTAl.  NSTZE.  NPT.  NBOYP 
COMMON  /  CONTK2  /  TITL(IR).  IPUNCH*  ISTrS.  IRUY 
COMMON  /  TIMERS  /  T  (10) 

complex  po#  mu»  ax 

THE  DIMENSIONS  OF  THE  FOLLOWING  ARRAYS  ARE  PROuLEM  OEPEN0ENT 

DIMENSION  C( 160*160) 

OOUHLE  PRECISION  RHS(16U) 

KEAn  (S.iuO)  NC 
h  WRITE  (8»20fl)  NC 
NC  =  NC  -  1 
IF  (NC  .LT.  0)  STOP 


PI  =  3. 141 59265 
Do  10  I  =  1.2U0 
UCOm(I)  =  G. 
TCOw(I)  =  0. 

10  HVAl  (I)  =  0. 

CALI  TIME  (  T ( 1 )  ) 
00  JU  I  :  2.10 
20  T ( I )  =  0. 


CrtLl  SETUP 

IF  (IHDY.NE.O)  GO  TO  30 
CALI  HVSOLU  (C.  RHS) 

30  CALI  INSOLU  (C) 

CALl  HOYSTR  (C) 

calculate  time  chart 

T(2)  =  (T(2)-T(l) )*10**(-3) 

T (4 )  -  { T ( 4 ) — T (3) ) *  1 0** (—3 ) 

T(6)  =  (T(S)-l  (S)  )*l0**(-3) 

T (8)  =  (T ( 8)  —  f (7) ) *  1 0+* (—3 ) 

T(ln)  =  (T( 10)-1 (y) )*10**(-3) 

'WRITE  (8.2000)  T1TL 
WRITE  (8»2i00) 

WRITE  (8.2200)  T  ( 2 ) »  K4).  T(h).  TU)»  T(lO) 
GO  TO  S 

too  format  <  i 3  ) 

200  format  (  ihi.  sx  13) 

1000  FORMAT  (  16AS) 

2000  FORMAT  ( 1  Hi .  18A5) 

2100  format  (  pih  time  Breakdown  chart  //) 


2?oo  format 

(  SX 

15HTIME 

TOR 

SETUP 

F12.7. 

2X 

7hSlC0'IDS 

// 

1 

SX 

15H) IME 

for 

DELINT 

F12.7, 

2X 

7mSeC0mDS 

// 

2 

sx 

55H1IME 

For 

SOLVER 

Fl2#7r 

2X 

7»iSeC0muS 

// 

3 

sx 

15H1 IME 

For 

INSOLU 

F12.7. 

2X 

7HSEC0NDS 

// 

4 

END 

sx 

1  SHI IME 

For 

RUYSOL 

F12.7. 

2X 

7HSEC0VDS) 

aniioooo 
AnI 10005 
ANllOOtO 
ANI10015 
AnI 10020 
AnT 10025 
ANI 10030 
Ant ioo35 

ANI1O040 

AnI 10045 
AuT 100SC 
ANI1P0S5 

aniioogo 
ant  10085 
ant  10070 

AnI 10Q75 

ant ioooo 

ANT  10005 

aniioooo 
antiooo5 
aniioioo 
ANI10105 
ANimiio 
AnT 10115 
AnT 10120 
AnT 10125 
AnI 10130 

ant  10135 

AnTIOIUO 
AnT 10145 
ANI101SO 
ANI101S5 

ant 10180 

ANT101A5 
AnT 10170 
AWT  10175 
ANTlOino 
ANT10105 
ANTIOIRO 
ANT101O5 
AnI 10200 

ant  10205 
ANH0210 
ANTI0215 

ant  10220 

ANI 10225 

ant  10230 
ant  102x5 

ANI1O240 

ant  10245 
ant  10280 
ant  10288 
ANT1O2F0 
AnT 10285 
ant i027o 


«WW' 


(TTTjer^riFi 


suBpohtimf  setup 

Common  /  mRHAYI  /  XyZ(1U0*2»2> »  nCOu(20n)*  iCON(?u0)*  ldc(?oo) 
Common  ✓  aRway2  /  Rval(20u) 
common  /  aRray3  /  PriN(ioo*2) 

COMMON  ✓  ARRAY4  /  Nt*DY(50*3) 

COMMON  /  MATCON  /  PI»FMIJ»PQ(2.2).MII(2)»FL£X(6)*STIF(6),Ay(?#2) 
COMMON  /  TIMERS  /  TlMllO) 

COMMON  /  C0NTR1  /  NSEto*  NSYM*  NTOIAl*  NsTZF*  nPT.  NhOYP 
COMmON  ✓  C0NTK2  /  TITL(16).  IPUnCh*  7STRS.  lBDY 
nampli*;t  /  HOY  CON  /  UCON*  TCON#  LOC 
U1MFNSION  Nontdno*?)#  XYZM(lU0*2) 

COMPLEX  PO»  Mil *  AX 

Equivalence  (node*  lDO*  (xyzm.  ucOn) 


NSKG  -  NUMBER  OF  ScGHEnT b  ON  THE  ROUNDaRY 

NSYM  =  NUMBER  OF  DEGREES  OF  SYMMETRY  STAKTINS  WITH  y»  THEN  v 
NNOU  =  NUMBER  OF  BOUNDARY  NODES  CONNECTING  ROUNDARY  SEGMENT*; 
IPilMCH  =  I  —  THE  BOUNDARY  SOLUTION  wIl.L  RE  PUNCHED  OUT 
ISIKS  =  0.  PLS’.RN  — •  ISIRS  =  1»  PLSTRS 

IF  IBDy.EO.O  -  BOUNDARY  DATA  STORED  IN  COMMON 

IF  loOv.NE.n  - —  BOUNDARY  DATA  READ  IN  FROM  CARDS  ADDED  TO  FND 

OF  THE  DATA  OECa 

NPT  =  nijmRFR  OF  INTERIOR  SOLUTION  POINTS  FOR  STRESS  SOLUTION 
NBOYR  =  NUMBER  OF  BOUNDARY  POINTS  FOR  STRESS  SOLUTION 


HEAO  (5*1000)  TITL 

REAn  (5*1100)  NSEG*  NSYM#  NNOD.  IPIMCH*  TsTkS*  WDY*  NPT,  NBDYP 
REAo  (5»l20n)  ( (NODF(l»J) *J=1»2) #1=1 »NSFG> 

REAO  (5*1.100)  ((XYZM(l*J)*J=l»2)»I=l»NNOn) 

REAn  (5.  WOO)  STIF 
HEAn  (5.  WOO)  FLEX 
REAn  (5.1700)  MU 

REAn  (5*1700)  ((AX(I#J) * J-l *2 ) » l  =  i»  2 ) 

WHITE  (6.2000)  I ITL 

WHITE  (6*2100)  NSEG.  NSYM*  NNOD*  IPilNCH*  ISTRS»  TBDY»  NPT*  NBDYP 
WHITE  (6*2200)  ((N00E(I»J)»J=1*2)»I  =  1»NSFG) 

WRITE  (6*2300)  (  ( XY/M ( I  *  J)  * J-l*2)  *1  =  1  »NnOd) 

WRITE  (6.2400)  STIF 

WRITE  (6*2400)  FLEX 

WRITE  (f».?7n0)  MU 

WRITE  (6*2700)  (  (AX(I.J)  *jrl*2)  ,1  =  1,?) 

NSI7E  =  2  *  NSEG 
DO  10  I  =  1 » NSEG 
DO  10  J  =  1.2 
DO  10  K  =  1*2 
N  =  NODE ( (»J) 

10  XY2 ( I » J»K )  =  XYZM(N.K) 

DO  20  I  =  1.200 
UCOn(I)  =  0. 

20  LUC (I)  =  l 

REAn  (5.BDYCON) 

If  (NPT.EQ.O)  Gu  TO  30 

RtAn  (5.1500)  ((PTlNd.J).J=l»2)»I  =  l»NPT) 

WHITE  (6*2500)  ( (PTIN(I.J) *J-1»2) *1=1 »NPT) 

30  IF  (NHnYP.Eo.U)  GO  TO  40 

REAn  (5*1600)  (  (NBf)Y(I  *J)  *  J=l»3)  *1  =  1  »NBDYP) 

WRITE  (A. 2600)  ( (NHuY(I.J).J=l*3)»I=l»NanYP) 


AnI 15000 
ANI1SQ05 
ANT  15010 
ANT  150 1 5 
ANT15020 
ANI 15025 
ANT  15030 

ant  15035 

ANT  15040 
AnI 15045 
ANI 15050 
ANT1505S 
AnI 15060 
ANI 15065 
AnI 16070 
AnT 15075 
ANI150PQ 
ANI 15065 
AnI150°0 
AnI 15095 
AnI 15100 
AnT 15105 
ANI15110 
ant  15115 
ANI 15120 
ANT15125 
AnI 15130 
AnI 15135 
ANI 15140 
ANI 15145 

ant  15150 

AnI 15155 
AnI 15160 
ANI15165 

ant i5i7o 

AnI 15175 
ANT151B0 
ANT151R5 
Ant 151°o 
ant I5i°5 
ant 15200 

ANI 15205 
Ant  15210 
ant  15215 
ANI 15220 
ANI15225 
AnI 15230 
ANI15235 
ANI 15240 

Ant  15245 

AnI 15250 
ANI15255 
AN! 15260 
ANT  15265 
ANI 15270 
ANI 15275 
ANI 15200 
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n  n  n 


40  CONTINUE 

NFAC  =  2**nsym 
IF  (NSYM.EQ.O)  NFAC  =  1 
NTOTAL  =  NSF.fi  *  NFAC 

CALCULATE  needed  material  constants 

DO  SO  K  =  1#? 

PQ(l»K)  =  FLEX(l)*Mil(id**;;  ♦  FLtX(2)  -  FLF;X(3)*M'l(K ) 
50  Po(2»K)  =  FLEX(2)*Mo(iO  ♦  FLEX(4)/Mu(K>  -  FlEX(5) 

Emu  =  STIFd  ) 

CALI.  TIME  (  TIMt2)  ) 

RETURN 


1000  FORMAT 

iioo  Format 


(IbAS) 

(1015) 


******  caution*****  formats  proc»lem  dependent  *****  caution  ****** 


1200  FORMAT  (2413) 

1300  format  uhFs.3) 

1400  FORMAT  (  bEl3.7  ) 
1500  FORMAT  ( 1  t*F5.3) 
ifioo  format  (?4i3) 

1700  FORMAT (UE20. 10) 
2000  FuRmAT  ( lHl »  10X* 

2100  format  (//  1015) 
2200  format  (//  «(3x  2 
2300  Format  ;//  u(3x  2 

2400  FORMAT  (  10X  3E12 

2500  format  (//  u(3x  2 

2800  FORMAT  (//  8(3X  3 

2700  format  (  2(  2» in. 

2ftG0  FORMAT  (  SX.  8E12 
END 


(2413) 

(lhFs.3) 

(  bEl3.7  ) 

(lbFS.3) 

(2413) 

UE20.10) 

( 1 Hi .  1 OX  .  18A5) 

(//  1015) 

(//  R(3X  213)) 

;//  4(3X  2Fln.b)) 

(  10X  3E12.7  /.  22X  2E12.7  /»  34X  El2.7  ) 
(//  4(3X  2Fln.b) ) 

(//  8(3X  313)) 

(  2 (  2r  lo ■  b * hX  )  ) 

(  SX.  8E12.6  ) 


AnT 15285 
ANI152P0 
ANI 15295 
ANI 15300 

ani 15305 

ANT  15310 
ANT15315 

ant 10320 

ant 15325 
ANT  15330 
ANT15335 
AnT 15340 
AnT153«*5 
ANI 15350 
ANT  15355 
Ant 15380 
Ant  15385 

ant  15370 

Ant 15375 
ANT153A0 
ANI 15305 
AnT 15390 

ant 15395 
ani 15400 

ANT15405 

ant 1541 0 

NU5415 
ANT 15420 
ANT  15425 
Ani 15430 
Ant  15435 
ANT 15440 
AnT 15445 

ant 15450 
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3 


n  n  n  n  n  n  n  n  n  non  non 


SUBROUTINE  HVSOLII  <C»  HnS) 

Common  /  aRkayi  /  xyZ(iuo.?*2> #  iic0n(20o) ,  TCON(?nO)f  LDr(7oo) 

common  /  «rway2  /  rwal(zoo) 

Common  /  mATCON  /  Pl»FMiJ»PG(?»2)»MU(?)»FLtX(f>)»STlF(6)»nv(?»?) 

common  /  conthi  /  NsEo.  nsym»  NiorAt..  nstzF.  npt .  n.*dyp 

COMMON  /  C0NTR2  /  TlTL(lft).  IPUkCm*  TSTkS.  IRuY 
common  •  timfks  /  Tim  do) 

DIMENSION  A  ( ?u0 )  *  PaYZ  (? ) »  C(wS17L»nSIZc) 
tuUTVALFNCE  (a.  (ICOn) 

OOUmLF  PRECISION  KHS(NSIZt) 

Complex  pq»  mij.  ax 

NrtA*  =  ?  *  nSEG 

white.  (ft.?0(l0>  TTTL 

IF  (ISTRS.Eo.u)  WHITE  (h*20b0) 

IF  (ISTRS.Eo.l)  WHITE  (ft*  20o0 ) 

WHITE  (ft.? 100) 

WRITE  THF  starting  boundary  CONDITIONS 

do  10  T  =  l.NSEG 
J  =  I  +  NSEG 
DO  15  N  =  1.2 

15  PXY7 ( N)  =  ( XYZ ( 1 . 1  * n)  +  XYZ< I »2»N) )/?. 

10  WHITE  (ft. 2200)  If  UCON(I).  UCON(J)#  TCOn(I).  ICOM(J). 

1  Li(C  ( I ) .  LOC(J).  PxYZ(l).  PXYZt?) 

UO  ?0  I  =  I.NMAa 
RHS(I)  =  0*  II  DO 
IF  (LOC(T).FO.U  GO  TO  .10 
HVAl.U)  =  FmiI  *  UCOn(I) 

GO  TO  20 

3(1  BvAi  (I)  =  TCON(l) 

2(1  CONTTNIIF 

CALCULATE  OFLU.  UELT.  RHb 

CALl  TTmF  (  TIMOJ  ) 

CALl  IJFLINT  (C.  RHS) 

CALI  TIME  (  TIM (4 )  I 

WRITE  RIGHT  HAND  SIDE  VECTOR 

WRITE  (ft. 2300)  T I TL 
UO  40  T  =  1.NSE6 
J  =  I  ♦  NSEft 

40  WHITE  (ft. 2400)  1.  RmS(I).  RHS(J) 

SOLVt  «;YSTFM  OF  EGi;ATl<lNb 

CALl  TlMF  (  T IM  ( 5)  ) 

CALl  SOLVER  ( NMAX .  HUb.  A.  C) 

CALl  TTMF  (  TlM(ft)  ) 

FIlL  Im  IICON.  TCON  - PRU.T  RESULTS 

UO  Ml  I  =  l.NMAX 
IF  (LI)C(I).FQ.l)  GO  TO  oil 
TC0m(  I )  =  Fmii  *  A(I) 


AUT20000 

ANT200O5 

AIIT2001  0 

AUT20015 

ANT20Q20 

AMT20Q2S 

ANT2O010 

ANT20035 

Af|T20040 

AnT  20045 

AnT2005(| 

ANT200S5 

ANT200AO 

AtgT2O0A5 

ANT2OQT0 

AHT2O07b 

ANI2R0A0 

AMT200A5 

ANT200°0 

AnT200°5 

A,MT20ino 

ANT20105 

ANT2O110 

ANT20115 

ANT20120 

ANT20125 

ANT20130 

ANT20135 

ANT2O140 

ANT241U5 

ANT201A0 

AMI201SS 

ANT2O1A0 

ArgT20ift5 

ANT20170 

ANT20175 

AIJT201A0 

ANI201A5 

AnT201°D 

ANT201Q5 

ANT20200 

AMI2R2R5 

ANT20210 

ANT2021S 

ANT20220 

ANT20??S 

AnT202^0 

ANT2P2"'5 

AUT20240 

ANT20245 

ANT202S0 

AnT  20255 

ANT20?ft0 

ANT202A5 

ANI2O?70 

AnT  20275 

ANT202A0 
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UCOM(I)  =  (I./FmU)  *  bVhL(I) 

GO  TO  50 

60  TCOn(I)  =  BVAL(l) 

UCOM(I)  =  A ( I ) 

50  CONTINUE 

WRITE  (6*2000)  JITL 

IF  ( ISTRS.EO.O)  WRITE  (o»2050) 

IF  ( ISTRS.EG.l)  WRITE  (b»20b0) 

WRITE  (s»21oo) 

DO  70  I  =  1 *N5Eb 
J  =  I  +  NSEft 
00  ho  N  =  1.? 

BO  PxY/(n)  =  (XYZU'l’rt)  +  XYZ(T*2»M) )/2. 

70  WRITE  (6*2200)  1 *  UcOlM  (  1  )  »  UCON(.J)*  TCON(D*  fCUM(J)* 

I  Ll)C  ( I )  *  LJC(J).  PxYZ(l)»  HXY  7(2) 

IF  ( IPlINCH.EG.O)  RETURN 
00  120  I  =  I * NStG 
J  =  I  +  NSEG 

120  WRITE  (7*2500)  1*  UCOw(  I )  »  UCON(J) 

DO  130  T  =  1 *NSEG 
J  =  I  ♦  NSEG 

130  WRITE  (7*2500)  1  »  TCoN ( I ) *  TCOU(j) 

RETi  IRN 

pooo  Format  (ihi*  igos  //  iox  iqubounDary  conditions) 

2050  format  (  /  u(  i«h  PlAhe  strata  •***  )  ) 

2060  format  (  /  u(  ibh  Plane  stress  ****  )  ) 

2100  Format  (//  6X  4n  SEb  7X  2mU1  IOX  2Hn?  InX  2HT1  lnx  2HT2  «X  4HL0C1 

l  6*  4HL0C2  BX  2HX1  10X  2MX2  //) 

2200  FORMAT  (?X  IS*  2F12.8*  2F12.0*  6X  Il»  HX  Il»  2F12.6) 

2300  Format  (IHl*  16AS  //  IOX  22HR1GMT  hand  side  VECTOR  //) 

2400  format  (sx*  is*  zeio.b) 

2500  Format  (  iin.  2E3G.io) 

3000  Format  (///  (  2(flF12.o  /)  //)  ) 

End 
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ANI20310 
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AMT20320 
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ANT20335 

Ant  20340 
AnT203’iS 
ant  20350 
ANT203S5 
ANI20360 
ANT203A5 
ANT20370 
ANT20375 
ANT203AO 
ANT203A5 
AnT2H3q0 
ANT20395 
AnI 20400 

ANI20405 
ANT2041 0 
ANI20415 
ANT20420 
ANT20425 
ANT20430 
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SUBROUTINE  IlFLlNT  (G»  RHS) 

COMMON  /  ARRAY1  /  XYZ(100»2*2)»  ULOn(20O>»  |COM(200>»  L0r(?00> 
COMMON  /  ARRAY2  /  BvAu(20U) 

COMMON  /  MATCON  /  PI  »t-MU»P0<2»2)  .MlH?)  »FLtX(6>  *STIF(6)  »AV{?,2) 
COMMON  /  CONTK1  /  NSEG*  NSYM»  N  TOTAL  *  NSIZE.  NPT »  NrOYP 
COMMON  /  C0NTK2  /  TiTL<16>»  IPUNCH*  ISTRS.  i^OY 
DIMENSION  A(?)  .  FK2>»  E2<2)»  P(2)»  X(2»2).  RKi??  2> 

DIMENSION  ISYM(2)»  gCnSIZE .NSiZt ) 

DIMENSION  Xxl(50>»  XX2 (t>0>»  XX3(50>.  XX4(&0) 

UOUhLF  PRECISION  RHs(NSIZE) 

complex  po.  mu*  ax 

complex  ak<?>#  »k(2>.  z*i(2>»  zk2(2>.  dii(2)*  ni?(2> 

Complex  u(2*2) »  T<?»2>»  TWANS*  L0bl(2>»  L0G2(2> 

Complex  mukpo* 

INTEGER  SON! 

SPHT  =  l. 

00  #*3  I  ~  1 » SO 
XXI ( I )  =  0. 

XX2( I )  =  0. 

Xx3<  I )  =  I). 
xx4(D  =  n. 

63  Continue 

DO  10  I  =  1.NSIZF 
00  1C  J  =  l.NSTZE 
10  6II.o’  =  0. 

UO  20  M  =  l.NTOTAL 
Ml  =  (M-D/NSEG 
M2  =  M  -  Ml*NSEG 
M3  =  M?  ♦  NSFG 

COMPUTE  SYMMETRY  COEFFICIENTS  USING  Y*  THFN  X 

TEL AG  =  1 
Oo  16  K  =  1.2 
J  =  3  -  K 

I  =  (M-1 )/<NSEG*( (2*»J)/2) ) 

ISYm(K)  =  (-1 ) **I 
IF  (I.FO.O)  ISYM(K)  =  1 
16  IFLAG  =  IK’.AG  ♦  ISYm(k) 

00  30  J  =  1*2 
IF  ( IFLAG. GT.O)  GO  TO  25 
X(l.J)  =.  XY7(M2*2*J)  *  ISYMIJ) 

XC2.J)  =  XY7(M2»1.»J)  *  1SYM(J) 

GO  TO  36 

25  X(l.J)  =  XY7CM2.1.J)  *  ISYM(J) 

X(2.J)  =  XY/(M2»?»<J)  *  ISYMIJI 

35  Continue 

C  DEFINE  DIRECTION  OF  THF  LINE  SEGMENT  F2  =  A(J)  /  AvAG 
C 

30  a ( ji  =  x (2* J)  -  xu.j: 

AmA <;  =  SORT  ( A  <  1 )  **2  ♦  A ( 2 )  **2 ) 

00  33  I  =  1*2 
E2(T>  =  A1D/AMAG 
J  =  3  -  I 

33  El(.l)  =  E2  ( I )  *  <-l»**(J+l> 


ANT25000 

ANT2S005 

ANI2S010 

ANI2501.5 

ANT 26020 

ANI26025 

ANT2S030 

ANI26035 

ANT26040 

ANI25045 

ANI260^0 

ANT25065 

ANI 26060 

ANI26065 

ANT26070 

ANI25075 

ANI250B0 

ANI26065 

ANT260Q0 

ANI260Q5 

ANT26100 

ANI25105 

ANT26110 

ANT26115 

ANT26120 

ANT26125 

ANT26130 

ANI26135 

ANI26140 

ANI26145 

ANT26160 

ANT26165 

ANT26160 

ANI25165 

ANT26170 

ANI26175 

ANT261O0 

ANI261A5 

antz^ioo 

AnT261°5 

ANT26200 

ANT26205 

ANI26210 

ANT26215 

ANT25220 

ANI26225 

ANI26230 

ANI262-35 

ANI26240 

ANI26245 

ANI26260 

ANT25265 

ANI25260 

ANI26265 

ANI26270 

ANI25275 

AnT262«0 
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C  CALCULATE  THE  ANoLtS  Tl  AND  T2  AND  THE  OISTAnCE  0 
C 

00  5>0  N  =  l.NSEG 

00  15  J  =  1*2 

P(J)  =  <XYZ(Nf|#JI  +  *Y2(N»2» J) )/2. 

HI  (.1)  =  Xd.J)  -  R(J> 

H2(.D  =  XT2.J)  -  P<J> 

15  continue 

CALI  OOTPHD  (HI*  El*  O) 

CALI  OOTPHU  (Kl#  t2*  K12) 

CALI  OOTPttO  (R2»  £2#  H22) 

Cali,  ootpho  (hi*  hi*  kimag) 

CALI  OOTPhD  (K2r  H2»  K2mAG) 

H1MAG  =  SORT  (R1MAG) 

H2MAG  =  SORT  (R2MAG) 

KA  s  ABS(Hl2) 

Rb  =  ahs(R2?) 

RMAfi  =  AMAX1  (RA»  RH) 

IF  IAHS(0  /RMAG) .LT.1.0E-U3)  GO  TO  uO 
C 

c  calculate  mi*  1112  for  h.ne.o 
c 

Tni  =  R12  /  n 
Tn2  =  H?3  /  0 

00  so  I  =1.2 

AK(T)  =  Fl<2)«MUd)  +  El(l) 
rtK(T)  =  El ( 1 ) *MU ( I )  -  El (2) 

ZKl(I)  =  I)  *  (AK(I>  +  8K(I)  *  TNI) 

ZK2II)  =  0  *  ( AK  ( I )  ♦  BK  ( I )  *  T.M2) 

LOGi  (I)  =  Clog (  zkud  ) 

LOG? ( I )  =  CLOG (  7 K2(I)  ) 

OPHT  =  AHAr.  (L0G2d>  -  LOGI  (  I )  ) 

5PHT  =  SIGN  (SPHI»  1IP11I) 

IF  CAHS(OPHI).GT.PI)  u0vj2(I  )  =  L0G2(I)  -  SPhI  *  EMPLXtO.n,  2.*PI) 
OIHI)  =  2K?(I)  *  IL0g2(I)  -  1.)  /  HK(I> 
l  -  /Kl(l)  *  (LOol(I)  -  1.)  /  HK(I) 

012  (I)  =  (LOG2d)  -  LOGI  (I))  /  bK(T) 

5n  Continue 
go  to  go 
ao  Continiif 
c 

C  CALCULATE  DM.  ni2  FOR  U.tO.O 
C 

00  S5  I  =  1.2 

HMD  =  E  l  ( 1  )  *Mlj  (1 )  -  El  (2) 

011(1)  =  R22  *  (CL0G<uK(I)*K22)  -  1.) 

I  -  Rl?  *  (CLOuIuK  ( I )  *  HI?)  -  1.) 

012 ( I )  =  (ALOG(RH)  -  ALOG(HA))  /  BK ( I ) 

55  Continiif 
60  CONTINIIF 
C 

C  CALCULATE  DELil*  OELI  integrals 

c 

DO  64  I  =  1.2 
00  64  J  =  1*2 
T(J.I)  =  C'A  .X(0.0*n.’J) 

U(J.I)  =  CMPLXtu. 0*0.0) 

6U  CONTINIIF 
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ANI2S2B5 
AnI252°0 
AWI252Q5 
ANI25300 
^NT25305 
ANI25310 
ANT2S315 
ANT2S320 
ANI2S325 
ANI25330 
AmI253^5 
ANl2S3»iO 
AnI2S3“5 
ANT2S3S0 
ANI2S3S5 
ANI253S0 
ANI253G5 
ANI25370 
ANT25375 
ANI253A0 
AnI253«5 
ANI253°0 
AnT253°5 
ANT2S4O0 
ANT2S405 
ANT25410 
An 1 254 1 5 
ANT25420 
ANT2S425 
ANT2G430 
ANI25435 
ANI25440 
ANT254“5 
ANI254S0 
ANI2S4S5 
ANI25460 
ANT 25465 
ArgT25470 
ANI25475 
ANT254R0 
ANI25405 
ANT254«0 
AnT254°5 
AMI2S500 
AnTT-5505 
AnT  25510 
ANI25S15 
ANT25520 
ANT25525 
ANI25530 
ANT25535 
ant  25540 
ANI255U5 
AMT25550 
ANT25565 
AnT  25560 
ANT25565 
ANT25570 


UO  #.5  1  =  1#? 

OO  #>h  J  =  1#? 

00  #.5  K  =  1»? 

SON?  =  « —  1 » ♦♦ €  3—1 ) 

MUKPOw  =  rtl)(K)**(2'’i  i 

UCJ.I)  =  tMJ»I)  +  PO(l»K)*flX(J#K)*nn(K) 

T(J.l)  =  T<J#I>  ♦  (MlJ(K)*tl(l)-Ll(2)  >*MuKHO**t»GUT 
I  *AX( J»K)+Ul2(K> 

65  CONTINUF 

Xxl(N)  =  XX1(n)  ♦  2. *KEAL <T ( 1 » 1 ) ) 

XX2(N)  =  XX?(n)  ♦  2.*kEaL ( T ( l # ? ) ) 

Xx3(N)  =  XX3(N)  *  2. *HEaL IT (?• 1 ) ) 

XX4(N)  =  XXu(N)  ♦  2.*kEaL<T(?»2) ) 

75  Oo  «5  IX  =  1*2 
00  A5  JX  =  1 #2 
N4  =  N  ♦  <(X-1)*NSKG 
M4  =  M?  +  <JX-l)*NShG 

if  (ix.fo.jx.anu.m.fo.n)  idx#jx)  =  cmplx co.?d»o.o) 

IF  (U)C(M4) .FO.l)  Go  fo  90 
iKAMb  =  CM  IX# JX) 

CMIXtJX)  =  -Cl./FMU)  *  MiXfJX) 

T ( I x  » JX )  =  -FMU  *  TmANS 

90  HHSCN4)  =  RHSCN4)  ♦  2.*REAL<lM  IX#  JX)  )  *  Rv/Al<M4)  *  ISTM(JX) 
G(Nb#M4)  =  G(N4#M4>  ♦  2.*KEAL<T< IX# JX) )  *  ISYM(JX) 

6b  Continue 
20  CONTINUF 

WRITE  <6.?t»0O)  TITL 

2500  FORmATC  1H1  »15A5//10x»17HCOLUMN  S«IM  CHECKS//) 

UO  05  I  =  1»NSEG 

95  WRITE  (#»»?5nn)  1#  Xxi  ( I )  #  XX2CI).  Xx3II>»  XX4CT) 

KETmRN 

?000  Format ( 1X#3I4»3FB.5»1oF9.5  ) 

?ioo  format  c  sx  i4.  2F211.10#  14) 

?200  FORMAT (1X#3l4> 12F9»u  ) 

?3oo  format  cinx.  4E15.7) 

?400  Format  uox#  nl4»  6E15.7) 

?500  FORMAT  C3X#  I4»  4F20.15) 
end 
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AMT2F615 
AtlT256?o 
ANT2S&25 
AMT2*630 
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ANI25640 
AM256‘*5 
Ant 25650 
ANI25655 
ANT2S660 

ANT25665 
ANT25670 
ANT2S675 
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ANT256A5 
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non 


Subroutine  insouk  c  ) 

common  /  arrayi  /  xrzdun.?.?) .  ucoN(2nn)»  tcon(?oo>»  luc(?oo) 

COMMON  ✓  ARWAY3  /  Pi  1.4(100.2) 

Common  /  MATCON  /  PI  #FMu»PD(2»?>  ».<IU(2)  »FLEX(G>  »STIF(6)  »Ay(2»2) 
COMMON  /  riMFKS  /  TIM  (10) 

common  /  conthi  /  nseo.  nsym.  ntotal*  nstze.  npt»  nhoyp 
Common  /  C0NTH2  /  TITcC  16) »  IPUnCh.  istrs*  iroy 
OIMPNSTON  CdUO.A)*  A ( 4 ) *  PXYZ<3) 
complex  PW*  MU»  AX 
IP  (IriDY.UE.O)  oO  To  IOii 
110  IP  (NPT.PO.O)  RtTURN 
CmLI.  TImF  (  TIM(7)  ) 

WHITE  (a. 2000)  IITL 
IF  (ISTRS.EO.OJ  WRITE  (b»20h0) 

IF  (ISTRS.EO.1)  WRITE  <t>»2060) 

CALL  For  CALCULATION  OF  UElD  AND  DELS 

WRITE  (A.2100) 

A (4 )  =  n. 

Cali  uflsu  (C> 

Do  10  NP  =  1  *  UP  I 
C  (Np .5)  =  C  ( NP »  5  *•  *  2. 

A ( 1 1  =  STIF ( 1  )  *C (NP'4)  +  STIF(3)«l(np»5)  ♦  sTIF(?)*c(NP»a) 

A(2)  =  STIF(3)*C‘NP.4)  ♦  STIF(G)w(.(nP»5)  ♦  STIF(s)*C(UP»A> 

A(3l  =  STlF(2)*L(NP.4)  +  STIF(5)*C(nP»5)  ♦  ST  IF(u)*C(NP»#>) 

WRITE  (A, 2200)  imP»  (A(K)  »K=1»m)  »  PTIM(NP.I).  PTIn(NP»2) 

10  CONTI NOT 

CALI  TIMF  (  TIM(A)  ) 

RETURN 

IUO  WRITE  (A.2000)  I  II L 
Uu  120  T  =  WNStG 

J  =  I  ♦  nsEg 

120  READ  (St  1100)  Nr  UCoU ( I ) r  UCON(J) 
no  130  I  =  l.NSEG 
J  -  I  +  NSE(. 

130  HtAU  (Sr  lion)  M»  TCt)i4(  I )  r  TC0.4(J> 
white  (a.23oo) 

UO  1411  I  =  1  » UStG 
J  =  I  ♦  NSEG 
!)0  150  N  =  1»2 

ISO  PXY7(N)  =  (XYZ(irlrU)  +  XYZ( ! »?rM) )/2. 

140  WHITE  (A.24O0)  1»  UC0h<D»  UCON(J)»  TCON  ( I )  r  TCOM(J)» 

I  LOC(I)*  LUC ( J) »  PxYZ(l),  PXYZ (?) 

GO  TO  110 

1100  PuRmAI  (110.  2E30.1n) 

2000  FORMAT  ( 1  Hi .  10X.  ] nAa) 

?oso  Format  (  /  «*(  ihh  Plane  strain  ****  )  ) 

?ooo  format  (  /  at  ihh  plane  siress  ****  >  > 

7100  P'OHMAT  (AHOPOINI.  ?X  10H  SIG«m(aX)  2 X  InM  SIGmA(vy)  2 X 
I  1  OH  SlGMA(YY)  2X  10*(  SIGMA(ZZ)  5X  2H  X  AX  2"  Y) 

2200  FORMAT  (2X  13»  2 X  4H2.2.  2FR.4) 

23oo  format  (//  ux  411  s£g  vx  2hui  iox  zhu?  i»y  ?hti  mx  phtp  «x  rhldci 

I  MHL0C2  RX  2HX1  IOX  2HX2  // ) 

2400  Format  (2x  is.  ?fi?.h.  pfi p.n»  «,*  n.  lix  Ii»  2m2.a) 

EnD 


ant  30ooo 
AIIT30005 
Af-j  1 30010 
ANI30015 
ANT3O020 
ANT3O025 
ANT30Q30 
A()I30035 
AmT300«0 

ant  30045 
ANT30050 
ANT300S5 
AnT  3O0A0 
ANT300A5 
ANT300T0 
AhJT  30075 
ANT300R0 
ANI300R5 
ANT3O0P0 
AnI300°5 

amt  30100 

ANI30105 

AMT30110 

AMI301T5 

ANI30120 

ami 30 125 

AMI 30 130 
ANI30135 
An! 30140 
ANI301U5 
ANI3O1S0 
AMT301S5 
AMT301A0 
ANI301G5 
AMT30170 
ant  30175 
ANT3nino 
AMI301«5 
ANT301QO 
AnT301°5 
ANT302no 
AMl3np.n5 
AMT30210 
AfjT  30215 
ANT30220 
Ant30225 
ANI30230 
AmT  30235 
ANT30pno 
AnT302«>5 
ANT3O2S0 
AfjT302S5 
AMT3O2A0 
AMT302A5 
Amt  30270 
AnT 30275 
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SliB.JOl IT T ME  IIFlSu  (6i 

Common  /  array i  /  xyZ<  ioo#2#2>#  ucom(20»i#  icon(piiO»#  lucipoo) 
Common  /  arrays  /  Piiu(ioo#2> 

COMMON  /  MATCON  /  PI  #FMil#P0(2»2>  #MU(?)  #FLfcXtft)  »STlF(6>  #AY(2#2> 
COMMON  /  C0NTK1  /  NSEft#  NSYM#  NIOTAl#  NST/F#  NPT •  NrtDYP 

common  /  contrp  /  titl<i6),  ipinch#  istkS#  imoy 

OIMFNSION  A  <  P)  #  El<2>#  E2<?>»  P(P)»  X(?#2)»  HK2I.  i<?(2> 
DIMFNSTON  I*»YM(2)  *  G(10ll»6) 

Complex  po»  mo#  ax 

complex  ak(p),  ok(?»#  zki<p)»  Za?i2)»  ms(2»#  oiM2>»  no,  ns 
Complex  logi(2>#  lo^2(2» 
spht  =  i . 
oo  in  t  =  :#tuo 
oo  »o  j  =  l ♦ ft 
in  gc.j)  =  n. 

oo  po  m  =  i#uioial 

Ml  =  (M-l)/NStG 
M2  =  M  -  Ml*NSEb 

computf  symmetry  coefficients  usino  y»  then  x 
iklag  =  i 

UO  16  K  =  1#? 

J  =  3  -  K 

I  =  (M-1 )/(NSEG*( (2*«J)/2)) 

IsYm(k)  =  ( — 1 ) *• T 
IF  U.FQ.n)  TSYMtrO  =  1 
lft  IFLA6  =  TFLAG  ♦  TSYm(K) 

00  X2  J  =  1#? 

IF  ( IKLAG. GT.O)  GO  TO  23 
X(l.J)  =  XY7(M?#?#J)  *  lSYM(J) 

X (2. J)  =  XY7 (M2» 1 » J)  *  ISYM(J) 

GO  TO  35 

23  X(l.J)  =  XY/(M2#1#J)  *  ISYM(J) 

X(2.J)  =  XY7(M2»2#J)  *  ISYM(J) 

35  CONTINUF 

OEFlNE  UIRFCTION  OK  THc  LINE  SEGMFfjT  Fp  =  A(J)/AMAo 

32  A ( J)  =  X(2#J)  -  X(1#J) 

AmAg  =  SORT  (A(l)**2  ♦  a(2) **2) 

OO  33  I  —  1#2 
E2(T)  =  At  I) /AMAG 
J  =  3  -  T 

33  EK.I)  =  F2(I)  *  t-l)**(J*l> 

CALCULATE  THF  ANOLtS  Tl  mNu  I?  AND  THE  HIST AijCt  0 

00  PO  N  =  1»NPT 
00  15  J  =  1#2 
P(J>  =  PTIN<N#J) 

H2(.l)  =  X  (2*  J)  -  PU) 

HI  (.1)  =  X(1#J)  -  P<J» 

15  Continue 

oi  =  n. 

02  =  o. 

Oo  17  .1=1  #2 

01  =  01  ♦  R1 ( J) *R 1 ( J ) 


ANTS^OOO 

A»jT3G0n5 

AMI3SC10 

AMI3G015 

ANT350P0 

ANT3ftQ?5 

AnT3G0^0 

ANT3-.035 

AfjT  351)00 

AmI350»»5 

ANT350G0 

ANT  35055 

ANl350ftO 

ANT3S0ft5 

ANT35070 

ANT3S075 

ANT3G0P0 

Aigl  350P5 

ANT350O0 

ANT350°5 

ant  35ino 

ANT3S105 

ANT3G110 

ANT3G115 

ANT35120 

ANI35125 

AnT  35130 

AnI 35135 

ANT351U0 

ANT351U5 

ANI3S1S0 

ANT351G5 

ANI 351ft0 

ANT351G5 

ANT35170 

ANT3S175 

ant  3t'ino 

ANI351R5 

AHT3G1P0 

ANT3S1Q5 

ANT3ft2n0 

ANT35205 

ANT3S210 

ANI3G215 

ANT352P0 

AnT  35225 

ANT3S230 

ANI  3**235 

An'352U0 

ANi352«*5 

AMT3S2S0 

AnT35?55 

ANT3G260 

AMT35265 

AMT3G270 

ANT3S275 

ANI3S2A0 
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OOO  ODD  noo 


17  L>/>  =  0?  +  R?( J)*R2<.J) 

AUT3S2A5 

i)l  =  S«)RT(0l  ) 

AIIT3SPO0 

l><!  =  SORT  ( 0? ) 

ant  3Ci2,)s 

CAl.l  l)OTP*0  ( K 1  *  El.  J) 

AfjT3rdnn 

cali  dotpru  (in*  t?»  m?) 

AoT3S3fiS 

CmLI  DOTPWO  (K2.  £?*  »<.?.' ) 

AiiT3*3io 

CALI  D01 PRO  CKl#  Kt.  «lMAo) 

ANT3S31S 

CALl  OOlPUU  («?.  K?  *  K?mAG) 

.i  r  i  T  3S3?n 

KlMAO  =  SORT  (M1MAG) 

AnT3*3?S 

rzmag  =  sort  (K/'mag i 

ANT3S330 

HA  :  AHSCGl?) 

ANT3S33S 

Kd  =  /»hs(k2?) 

amt 3^340 

KhAa  =  AM,iXl  (RA.Rb) 

AHT3S345 

IF  C  ArtS  (0  /RMrtG).LT.1.0E-03)  i»0  TO  UO 

AriT3*3bO 

TNI  -  Rl?  /  n 

AMT3S3S5 

TN2  =  R??  /  0 

ANT3S3G0 

AIJT3S3G5 

CALCuLATF  dm#  014  FOR  O.Nt.l) 

Ant  3*^370 
ANT3S375 

UO  u1)  I  =  1,? 

ant  3c3po 

AK(T)  =  FI  (?)  *Mt|(  I  )  +  El(l) 

ANT3S3A5 

H|\(T)  =  Eld)»VU)d)  -  FI  (?) 

ANT3^3O0 

ZM(1)  =  1)  *  (AK(D  +  HK(1)  *  TNI  > 

Ai-jT  3S3°S 

Zk?(I)  =  .)  ♦  (AMl)  +  R*d)  ♦  Ti#?) 

A.4T3S4An 

LOG1  ( l )  =  Cl_Ob<  7K1  ( I )  ) 

AnI  3e;4r»S 

LOG? ( 1 )  =  CLObC  7K2(I)  ) 

ANT3SU1 0 

OPM l  -  AT-iAr,  (LuG2<  1  )  -  I.UGKD) 

A?4T3S41b 

SHUT  =  SIGN  (SPOT#  iiPmI  ) 

Af|T3S4?0 

IF  (AriS(OPHT)  .GT.Pl  )  L0v>?  ( I )  =  LObPCl)  -  SPOT  *  rrfPLXCO.A 

.  2.*PI )  ANI3S4?5 

013(1)  =  (LOGZ(l)  -  LOGIC  I))  /  t»K  (  I ) 

ant  3S4"'o 

014(1)  r  -Cl./ZKPCI)  -  1./7K1U)  )  /  «KU> 

Ant  3^4''5 

4S  Con  tin;  if 

ANT3S44Q 

GO  to  sn 

A,MT3^44b 

ANT3S4S0 

CALCULATE  013*  014  Fow  O.FO.O 

ANT3S4S5 
•iNT  3c*4G0 

4(1  CoN  r  i  ivi  if 

AnT3c;4G5 

DO  SO  I  r  1 .? 

AMT3G470 

H.\{  T)  =  F1(1)  *«l»(l )  -  Fl  (^) 

ANT3S475 

013(1)  =  CaLoGCRo)  -  ALOo(Rfi))  /  null) 

ANT3S4A0 

014(1)  =  -Cl./RX?  -  1.  /.#!?)  /  H»v(()«*Z 

AMT3S4AS 

Sh  CoNT  Inti  IF 

ANT3S4PO 

5U  CONT  INI  It- 

A,i|T  3S4O5 
ANT3SSO0 

CALCuLATF  no.  OS.  sTrAINs  nHO  sTkFSSES 

ANT3SS4S 

ANI3SS10 

LI  =  3 

AflT  3S51  5 

UO  ?S  I  =  1»? 

ANT3^S?0 

00  ?S  L  ~  I*? 

Af|T  3^3?b 

LI  =  LI  +  1 

ArjT  3c*s30 

no  ?s  «)  -  l .? 

ANT3‘-S^S 

00  =  CMPI.X  c 0. II. O.o) 

ant  3sr>un 

l)S  =  (.ViM  X  C ll. II. II. U) 

ANT3S54S 

00  Ml  K  =  1.? 

AMT3SSSD 

no  =(  Cp«C  J.K  )  »Aa(  1  )  Ml  13  CO  *  (V,|(|\)  *  ML-1  )  ) 

A'lT-JSSSS 

i  .Mo  ( n  »k  )  ♦  A  a  (  l  .  a )  *  n  i3  IK )  *  ( vn  C  a  )  «  *  ( I — 1 ) ) ) ) /?  •  ♦  Ok 

AnT3^5>A0 

ns  =(-(■  til'd  *tl  d  )-r  1  (?)  )  »,d(i\)  »*  (  ?— 0)  *nV  (  I  .  K  )  l  (  K  )  *  *  (  L- 

1  )  ♦OIU(i'  )  ANT3SSGS 

)  * ( (-1 ) ♦ • ( 3-J ) ) 

' NT3SS7H 
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-<M|ltK)*ElCl)-Fmn*MU<K>**(2-J)*AX(L»K)*Mu(K)**<I-lMni4<K)ANl35575 


3  *((-l)**(3-J)))/2.  ♦  US 

3n  Continue 

M4  =  m?  ♦  ( j-i ) *nsEu 

6(N*L1)=  (ilNiLl)-  2.*HEALt0iJ)+TC0N(M4)*I«;YM(J) 
1  ♦  2.*HEaH0S)*UC0N(m4)*ISYM(J) 

2S  CONTINUE 
20  CONTINUE 
RETURN 
END 


ANI3B500 
AN73S505 
AN 13^5^0 
Am:3S5*5 
AUTJ^bru 
ANI3S605 
ANiSSfcIO 
ANT35615 
ANI3S620 


st—r.xaa. 


o  n  o 


»•  •«-*  r*JK"T4  >V\  '«tf  *' •>Nll!W‘l,l"f  » W  #*B3*W 


SUBROUTINE  MDYS1R  < t4 » 

Common  /  arrayi  /  xyzi i<io#2#2> »  ucon(20o)»  tcon(?oo)»  ldc(?oo) 

COMMON  /  ARWAY4  /  NH0Y(b0f3) 

Common  /  MATCON  /  PlfFMUfP0(?f2)fMUt?)fFLEX(6>»STlF<6)fAX(?t2) 
Common  ✓  COMTHl  /  NsEGf  NSYMf  NTOTAl#  nsi/e»  npt.  nboyp 
common  /  contk2  /  titl(  i#») #  ihunch#  iSTRSf  iroy 
Common  /  timers  /  timhu) 

DIMENSION  A (? )  f  El (?) f  E2(?) f  P(3#2)»  RC?)»  HU<2)»  G (SO. A) 
DIMENSION  Q(3f3)f  E(3#3>#  COEAC(3#3)»  T(3,3)»  Tl(3»3) 

DIMENSION  RHS(3)f  ThAC(?)»  TCN(2)f  rEMPC3#3)»  AN<U3) 

Complex  po#  mu»  ax 
IF  (NHDVP.Eo.U)  return 
CaLI.  TIMF  (  TIM<9)  ) 

WRITE  (G#?OnO)  TITL 

WRITE  (Gf?l00)  ( (NBUY(  I»J)  ♦  J=1  »3)  ♦  1  =  1  »NBDYP) 

WRITE  (G»?Onn)  TITL 
IF  USTRS.Eo.U)  WRITE  (hf2flb0) 

IF  (ISTRS.En.1)  WRITE  (Gf20bO) 

write  (G#?2nn) 

c 

C  10  =  BASE  SEGMFNT  number 
C  II  =  REAR  DIFFERENCE  SEGMENT  NUMBER 
C  12  =  Forward  DIFFERENCE  bEGMtM  NUMBER 
C 

00  15  N  :  l.NbDYP 

10  =  NHDY  (N.l) 

11  =  NHDY  (N.2) 

12  =  NHDY  (N.3) 

00  ?0  M  =  1 #? 

P(l.M)  =  ( XY7 (TU*1*M)  ♦  XY2(I0»2»M> 1/2. 

P(2.M)  =  ( X  YZ  ( I 1 # 1 »M)  *  XYZ( I1#2*M) )/2. 

P(3.M)  =  ( XY7 ( 12  f 1 »M)  +  XYZ( I2*2*M) )/2. 

H  ( M )  n  P(3»M)  -  P(2.M) 

20  A(M)  =  XY/( I0»2*M)  -  XYZ( I0» 1 »M) 

SmAg  =  S0HT(R(1)**2  ♦  R  ( ? ) **? ) 

AMAG  =  SORT (A ( 1 ) **2  ♦  At2)**?) 

C 

C  CALCULATE  Oil/OSf  TRAC  FOR  GLOBaL  CORROfNATF  SYSTEM 
C 

l»0  95  «  :  If? 

E2(m)  =  A ( M) /  AMAG 
K  =  3  -  M 

ElU)  =  F?(M)  *  (-1>**(K+1) 

13  =  II  ♦  (M-1)*NSEG 

14  =  I?  +  (M-1)*NSEG 
lb  =  10  ♦  <m-1)*NSEg 
Ou(m)  =  (ilCON(  14)  -  UCON(  13)  )/SMAG 

25  TRAC(m)  =  TCON( 15) 

TRANSFORM  nil/DS  INTO  EPS - TRAC  INTO  TCNt  IN  LOCAL  COORDINATES 

Cali  uotprO  (uut  E2f  tPs) 

1)0  uO  I  =  1#? 

40  TCN(  I )  =  t|. 
no  US  T  =  If? 

TCN(1)  =  !Cn(1)  ♦  EtC i)«TRAC(l) 

45  TCN(2)  =  TCN(?)  ♦  E>( i )*THAC( 1 ) 


ANT40000 

ANT4O005 

ANT40010 

ANT40015 

ANT400?0 

AnT400?5 

ANT4O030 

ANI40035 

ANT4O040 

ANT40045 

ANT40050 

AM40055 

ANT400G0 

ANT40065 

ANT40070 

ANT40075 

ANT400BO 

ANT400B5 

ANT400D0 

ANT4O0B5 

ANT40100 

ANT40105 

ANT40110 

ANT40115 

ANT4Ol?0 

ANT40125 

ANT40130 

ANT40135 

ANT40140 

ANT40145 

ANI40150 

ANT40155 

ANT401GO 

ANI401G5 

ANT40170 

ANT40175 

ANT401A0 

ANT401B5 

ANT401PO 

ANT401Q5 

ANT40200 

ANT4O205 

ANT4O210 

ANT40215 

ANT402P0 

AMT40225 

ANT40230 

ANT40235 

ANT40240 

ANT40245 

ANT4O2G0 

ANT402S5 

ANT402GO 

ANT402A5 

ANT40270 

ANT40275 

AnT402«0 
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n  n  n  non 


W' 


w>. 


T’-  I  i!  W* 


ANl402ft5 


calculate 

TRANSFORMATION  MATRIX  T(I.J)  AND  ITS  INVERSE  TIII.J) 

ANT402RO 

ANT402R5 

c  =  El 

(1 ) 

ANT40300 

S  =  El 

(2) 

ANI40305 

TC1.1I 

=  C*C 

ANI40310 

T I 1 »2 ) 

=  S*5 

ANT40315 

T ( 1 >3) 

=  S*C*2. 

ANT40320 

TI2.1) 

=  S*S 

ANT40325 

TI2.2) 

=  C*C 

ANT40330 

TI2.3) 

=-S*C*2. 

AnT  40335 

n  3*  i  > 

=-S*C 

ANT40340 

TI3.2) 

-  s*c 

ANT40345 

TI3.3) 

=  C*C  -  S*S 

ANT403S0 

ANT40355 


************  *v****«*****  ANT4P3G0 

ANT  40365 


Tin  »ii 

=  T( l » 1 1 

ANT40370 

Till .2) 

=  T(l»2) 

ANT  40375 

TI(t,3) 

=-T(t.3> 

ANT403«0 

TK2.1) 

=  T  l?»  1 ) 

ANT403A5 

TI(?»2) 

=  T<2»2> 

ANT403RO 

T 1 1 2  *  3 ) 

r-T ( 2 » 3) 

ant 4  )3°5 

TK3.1) 

=-T(3.1) 

ant  40400 

TK3.2) 

=-T(3#2) 

ANT4n4fl5 

Til  A. 3) 

=  T  ( 3 » 3  ) 

ANI40410 

111  V.ll  —  I  I.1IJI  IV 

i  C  ANT40415 

C  CALCULATE  MATERIAL  STIFFNESSES  IN  LOCAL  COORDINATE  SYSTEM  ANT40420 


j  c 

ANT40425 

i 

K  =  0 

ANT  40430 

Do  40  T  =  1.3 

ANT40435 

! 

DO  40  J  =  I #3 

ANT40440 

K  =  K  ♦  1 

ANT40445 

'i 

OlI.J)  =  STTF(K)  *  I2.**(J/3)) 

ant  40450 

i 

»F  ( I .FO. J)  GO  TO  5U 

ANI40455 

OIJ.I)  =  STIF(K) 

ANT40440 

| 

50 

Continue 

AnT  40445 

j 

DO  S5  T  =  1.3 

ANT40470 

j 

DO  45  J  =  1.3 

ANT40475 

TEMPI  1 . J)  =  n< 

ant  404R0 

00  45  K  =  1.3 

ANT404A5 

55 

TEMPI  I .  J)  =  TEM^II.J)  ♦  OtI.K)*THK,J) 

ant  404*^0 

DO  40  T  =  1.3 

ANT404°5 

j 

DO  40  J  =  1*3 

ant  40500 

\ 

O(I.J)  —  0* 

ant  40505 

DO  40  K  =  1.3 

50 

OIT.J)  =  O(I.J)  ♦  TIT.K)*TEMPtK.J) 

Q(l.j)  =  Q(  1 .3)  / 2.  AnT 40515 

i  c 

Q(2,3)  =  Q(2,3)  /2.  anT405?0 

c 

CALCULATE  COEFFICIENTS  OF  HEARHANGtn  EQUATIONS 

Q(3,3)  =  Q(3,3)  /2.  AnT 40525 

c 

ANT40530 

I 

EU.l)  =  rall.l)  -  0(l»2)*d(l»2)/0(2.2) 

ant  40535 

Ell. 2>  =  ran. 2) 

ant  40540 

Ell. 31  =  rail. 3)  -  Oil. 2) *Q 12.31/0(2.?) 

ANT40545 

EI2.1)  =-ra( 1 ,2) 

ANI40550 

E  (2.2)  =  ra(?*2) 

ANT  40555 

EI2.3)  =-w(2.3) 

ANT405G0 

EI3.1)  =  ra(I*3)  -  01 1.2)*0(2»3)/ra(2.2) 

ANT405G5 

E (3.2)  =  ral?»3) 

ANI40570 
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F(3.3)  =  (j(3.3)  -  Q(2.3)*0(2»3)/0(2.2> 

DET  =  (F(l»l )*E(2»2)*E(3»3> )  ♦  (E(1.2)*F(2»3>*E'.3»1)  > 

1  (F(l»3)*E(2»l)*E(3»2) )  -  (F  <3»  1 )  *E  <  -i*2>  *E(  1  »3) ) 

2  (F(3»2)*E(2»3)*E<1»1>>  -  <E(3,3)  *Ft2»D*E(l .2)) 


COFflC ( t » 1 )  =  (E(2»2)*E(3#3)) 

C0FACU.2)  =  -1.0*( (E(2.1)*E(3.3>> 
CoFAC( 1 »3)  =  (E(2»1)*E(3.2> ) 

LoFAC(2»l>  =  -1.0*< (E(1»2)*E(3.3> ) 
C0FAC(2.2)  =  (E(1»1)*E(3»3)) 

C0FAC(2.3)  =  -l.n*( (E(l#l)*E(3#2) > 
COFAC (3*1)  =  (E(1.2)*t(2.3) ) 

C0FAC(3.2)  =  -l.n*C(ECl»l)*E<2»3l) 
C0FAC(3.3)  =  (Efl.l)*E(2.2>) 

DO  *S  I  =  1.3 
DO  *5  J  -  1*3 

hS  TEMp(I.J)  =  COFaC(J  I)/OET 
RMS ( 1 )  =  fCN(l) 

RHS(2)  =  FPS*0 ( 2 ♦ 2 ) 

RHS(3)  =  TCn(2) 

CALCULATE  UNKNOWN  HOOP  STRESS 

DO  70  T  =  1.3 
ANS(I)  =  0. 

DO  70  J  =  1.3 

70  ANS(I)  =  ANS(I)  +  TFMPd.J] 

GiN.  1 i  =  TCM ( 1 » 

G(N.2>  =  TCN(2) 

G(N.3)  s  ANS(2)  *  0(2.2) 

G(N>4)  =  EPS 
G (N. 5)  =  ANS(l) 

G(N.ft)  =  ANS(3) 

WHITE  (G.10O)  STiF  .  u.  T. 

100  FORMAT  (  //  (3( JE12.7  /)//] 


-  (E(3.2)*E(2.3>> 

-  (E(3.1)*E(2,3) ) ) 

-  (E(3.1)*E<2.2> ) 
~<E(3»2>*Etl»3>>> 

-  (E(3.1)*E(1.3>> 

-  <E<3»l)*t<1.2> )) 

-  (E(2.2)*t(1.3> ) 

-  (E(2.1)*E<1.3>>> 

-  (E(?»1 )*t(l,2) ) 


=  ANS(I)  +  TrMH(I.J)*RHS(J) 
=  TCN(l) 

=  TCN(2) 

s  ANS(2)  *  0(2*2) 

=  EPS 
Z  ANS(l) 

=  ANS(3) 

(G.lOn)  STiF  .  u«  T.  TI»  HHS 
(  //  (3( JE12.7  /)//)) 


lb  WRITE  (f>»23nn )  10.  (G(N.M).M=l»4>»P(l*l)»P(i»2> 

CALI  TIMF  (  TIM(IO)  ) 

RETmrn 

moo  format  041.3) 

9000  format  nni.  iox.  ihad 

90b«j  Format  (  /  4(  ihh  plane  strain  ****  )  ) 

?Obii  format  i  /  m  ioh  plane  stress  *♦♦♦  )  ) 

2100  Format  (/  5X  lmBASF  NUMBER  2X  UHRfAR  NUMBER  3X  IOhFwD  MllMBFR 
1  (  3112  /)  ) 

2200  FORMAT  (7H0SGMENT  2X  10H  NORMAL  ST  2X  10H  ShFmR  qTR  2X 
1  1  OH  HOOP  STRS  2X  10H  HOOP  STRN  SX  ?H  X  M  2M  Y) 

2300  FORMAT  (2X  13*  2X  3F12.2.  F12.9.  2Fh.4) 

ENO 


ANl**n575 
ANI405R0 
ANI405PS 
ANI405°0 
ANI40S95 
ANT40600 
ANT40605 
ANT40610 
ANI40&1 5 
ANl4ne,?0 
ANT4n625 
ANT40630 
ANT40635 
AnI406"0 
AnT406«5 
AMT406SO 
ANT406S5 
ANT40660 
ANT40665 
ANT 40670 
ANI40675 
ANI4O6R0 
ANT406R5 
ANT4O690 
AMT4n6R5 
ANT4O700 
ANT40705 
ANI4O710 
ANT40715 
ANT40720 
ANT40725 
ANI40730 
ANT40735 
ANI40740 
ANT40745 
ANT407S0 

ANT417S5 

AnI 40760 
ANI407R5 
ANT40770 
ANI4077S 
//  AMT407A0 
ANT4n7R5 
ANT4070C 
ANT407Q5 
ANT4OflO0 
ANT40805 
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SUBWOUTTNF  DOTPKO  <A#  fl.  C) 
IHMFNSTON  AO)*  H ( 2 ) 

C  =  AH  ) *H C  l )  ♦  A(2 )*b(2) 

HtTi  IHN 

UNO 


ANT4elono 

ANT4S005 

ANT4S010 

ANI4*015 

ANT4eiO?0 


23b 


n  r> 


SUBROUTINE  SOLVER  <N»  X»  F#  A ) 

DIMENSION  A(N#N>#  X(N>»  F(N)»  Xx<160) 

DOUBLE  PRECISION  X 
(JO  10  I  =  1.  N 
Fill  s  o.tl 
111  CONTINIIF 
N1  =  N  -  I 
Do  AO  I  :  2»  N 
1)0  Hb  J  =  I*  N 

IF  ( AHS (A(I—1»I— 1)1  .t»T.  0.)  faO  TO  u5 

11  =  I  -  l 
WHITE  <6. Sin)  II 
HETi  IRN 

45  CONTINIIF 

CX  =  AIJ.I-I)  /  A ( I— 1 » I— 1 ) 

K2  =  I 

DO  SO  K  =1*  N 

A(J,K?>  =  AIJ.K2)  -  CX  *  AU-1#K?) 

K2  =  K?  *  1 
50  Continue 

A  (»J»  1—1  )  =  CX 
55  Continue 

Ml  CONTINIIF 

C  FOHWaRO  PASS  -  OPENATE  ON  HlOHT  HAnO  SIDE  mS 
C  ON  MATRIX 
62  Continue 

UO  70  I  =2.  N 
Do  65  J  =  I.  N 

X(J»  =  X  ( J)  -  Xd-lJ  ♦  A(J»1-1) 

65  CONTINIIF 
70  CONTINIIF 

BACKWARD  PASS  -  SOLVE  KON  AX  =  B 
XX(n)  =  X(N)  /  A(N»N) 

DO  «0  I  =  l»  N1 
Sum  =n.o 

12  =  N  -  I  ♦  I 
DO  75  J  =  I?»  N 
SUM  =  SUM  +  A ( 12—1  *  J)  *  XX(J) 

75  Continue 

XX(I2-1»  =  ( X  ( 12—1 1— SUM  J  / 

80  CONTINIIF 

DO  <*0  I  =1.  N 
Fill  =  Fill  ♦  XX(1» 

90  CONTINIIF 
RElMRN 

510  Format  i/tx  pshehror  return  from  sersov  no* 
l  35HDIAr.0NAL  TERM  RFOUCEO  TO  2ER0  /  ) 

ENn 


ANI50000 
ANI5O0O5 
ANI50010 
ANT50015 
ANI500P0 
ANT500P5 
ANT50Q30 
ANI500T5 
ANT50060 
AUT50045 
ANI50050 
ANT5O055 
ANT50060 
ANT50065 
ANT50070 
ANT50075 
ANT500A0 
ANT500B5 
ANI500B0 
AnT50oR5 
ANT50100 
ANI50105 
AnTSOHO 
ANT50H5 
ANI5O1P0 
ANI501P5 
AijT  50 130 
Ant 50 135 
ANI5O140 
ANI50145 
ANT501S0 
ANT50155 
ANT50160 
ANT50165 
AUT50170 
ANI50175 
ANT5O1A0 
ANT501B5 

ANT501O0 

ANT501R5 

ANI50200 

ANT502O5 

ANT50210 

ANT50215 

AmI5O2?0 

ANT50225 

ANT50230 

ANI50235 

ANI5024Q 
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5. 3  EXAMPLE  SOLUTIONS  FOR  ISOTROPIC  AND  ANISOTROPIC  BOUNDARY- 
INTEGRAL  EQUATION  METHOD 

5.3.1  Tension  of  an  Isotropic  Plate 

The  group  of  problems  discussed  herein  are  provided  for  two 
major  purposes,  the  first  to  determine  solution  accuracy,  and  the  second 
to  provide  guidelines  in  the  use  of  the  program,  called  DIPOME. 

Since  both  tractions  and  displacements  are  assumed  constant  along 
each  segment,  it  is  logical  to  theorize  that  the  solution  will  be  more 
accurate  for  shorter  segment  lengths.  If  then  two  questions  remain: 
What  accuracy  is  obtainable,  and  how  is  this  accuracy  related  to  the 
segment  length  used  in  the  model. 

5.3. 1.1  Circular  Cutout 

A  circular  cutout,  of  unit  radius,  was  modeled  by  segments  of 
equal  length.  Ten  problems  were  solved,  with  the  only  variable  being  the 
nuriber  of  segments  employed.  In  each  problem  the  stress  distribution  a- 
long  the  x  and  y  axes  interior  to  the  plate  was  obtained.  Stresses  were 
computed  at  points  ranging  from  0.001  inches  to  over  5.0  inches  from  the 
surface  of  the  cutout.  Table  1  shows  a  comparison  of  the  solutions  ob¬ 
tained  in  three  of  these  problems  to  the  theoretical  results  of  Timoshenko. 
These  solutions  follow  the  theoretical  curve  closely  in  all  cases,  except 
in  the  immediate  vicinity  of  the  cutout. 

This  behavior  is  due  largely  to  the  presence  of  a  sharp  corner  at 
the  intersection  of  each  axis  with  the  cutout,  as  shown  in  Figure  1.  This 
is  a  consequence  of  the  approximation  of  the  surface  by  straight  line 
segments.  Use  of  shorter  segment  lengths  reduces  the  sharpness  of  this 
corner  and  produces  less  distortion,  as  seen  in  the  table.  Further  devi¬ 
ation  from  the  theoretical  solution  is  a  result  of  the  surface  approxima¬ 
tions  inherent  in  averaging  tractions  and  displacements  over  each  segment. 
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Stresses  at  the  surface  of  the  cutout  are  computed  by  a  finite 
difference  technique,  using  the  displacements  of  the  two  segments  adjacent 
to  each  of  the  Intersections,  as  shown  In  Figure  1.  Once  the  strain  Is 
computed  by  the  equation  below,  Hooke's  law  Is  used  to  obtain  the  stress. 
Surface  stresses  are  computed  at  nodes  around  the  entire  cutout,  with  an 
average  error  of  about  two  per  cent.  For  brevity  only  the  stress  at  the 
Intersection  of  the  cutout  and  y-axls  Is  shown  here  (Table  1). 


The  Influence  of  segment  length  on  solution  accuracy  Is  sumnarlzed 
In  Figure  3.  The  graph  results  from  comparisons  of  Interior  stresses, 
where  Y*  represents  the  last  data  point  obtained  before  the  data  diverges 
from  theoretical  curve  of  Timoshenko. 

5 .3.1.2  Elliptical  Cutout 

The  problem  of  an  elliptical  cutout  In  an  Infinite  plate  under 
tension  was  solved  by  Inglls  In  1913.  He  found  that  the  maximum  stresses 
in  the  plate  occur  at  the  surface  of  the  cutout,  at  the  point  where  the 
radius  of  curvature  Is  smallest.  T^e  stress  concentration  here  Is  given  by: 

SCF  =1+2  a/b 

where  a/b  Is  the  aspect  ratio  of  the  ellipse. 

Prediction  capability  for  a  range  of  stress  concentrations  was 
Investigated,  and  results  are  reported  here  for  concentrations  of  5,  10, 
and  40.  By  the  equation  above,  aspect  ratios  of  the  resulting  ellipses 
were  2.0,  4.5,  and  19.5. 
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For  each  aspect  ratio  a  number  of  problems  was  solved,  using 
varying  numbers  of  segments  to  model  the  elliptical  surface.  Elliptic 
coordinates  were  used  to  divide  the  surface,  so  that  a  constant  value  of 
segment  length/radlus  of  curvature  was  obtained.  It  may  be  shown  that 
this  will  be  accomplished  by  using  equal  Increments  of  the  coordinate  n- 
It  was  hoped  that  accuracy  of  the  Internal  solution  might  be  related  to 
this  ratio. 

The  stress  distribution  along  the  x  and  y  axes  interior  to  the 
plate  was  obtained,  at  points  ranging  from  0.001  inch  to  5.0  inches  from 
the  cutout  surface.  Tables  2  through  7  show  a  comparison  of  the  results 
with  the  theoretical  results  of  Inglls.  Again  it  must  be  noted  that  the 
computed  results  are  Inaccurate  for  points  very  near  the  cutout  surface, 
due  to  the  sharp  corner  produced  by  the  model  (See  Figure  2). 

Stresses  at  the  surface  of  the  cutout  are  computed  by  a  finite 
difference  technique,  as  previously  described.  Results  of  this  calcula¬ 
tion  are  shown  only  at  the  intersection  of  the  x  and  y  axes  with  the  cut¬ 
out,  and  appear  in  Tables  2  through  7. 

The  relationship  between  interior  solution  accuracy  and  the 
value  of  segment  length/radius  of  curvature  employed  in  a  siven  problem 
is  shown  in  Figure  4.  Results  were  obtained  for  four  aspect  ratios,  and 
the  plots  are  nearly  straight  lines  for  each  aspect  ratio,  for  values  of 
length  parameter  down  to  0.052.  It  may  be  seen  that  solution  accuracy 
is  functionally  related  to  the  ratio  of  segment  length  to  radius  of 
curvature,  but  this  parameter  alone  does  not  characterize  accuracy. 


We  see  that  the  Boundary-Integral  Equation  method  Is  a  reliable 
numerical  technique  for  the  prediction  of  stress  concentrations  In  two 
dimensional  isotropic  problems.  Results  Indicate  that  the  method  is  con¬ 
sistent  as  well  as  accurate  In  calculating  stress  concentrations  as  high 
as  40.  Solution  accuracy  is  dependent  both  on  the  stress  concentration 
gradients  present  and  on  the  length  of  segment  used  to  model  the  surface. 

In  employing  this  program,  it  should  be  noted  that  solution  time 
required  for  interior  points  is  approximately  ten  times  that  required 
for  boundary  solution  points. 

5. 3. 2  Tension  of  an  Anisotropic  Plats  -oith  a  Circular  Cutout 

The  program  used  for  the  solution  of  the  following  problems  is 
called  ANISOT,  and  provides  a  solution  capability  for  two  dimensional 
gc.ierall>  anisotropic  materials.  The  use  of  the  program  is  restricted 
only  by  the  requirement  that  the  material  employnd  be  mid-plane  symmetric. 

It  Is  expected  that  the  program  will  be  especially  useful  in  analysis  of 
advanced  fiber  composites,  s r  the  problems  solved  here  considered  plates 
of  boron-epoxy. 

5.3.2. 1  Orthotropic  Material 

A  series  of  problems  was  solved,  with  the  cutout  surface  repre¬ 
sented  by  varying  numbers  of  segments.  In  each  case  segments  of  equal 
length  were  used,  and  the  number  of  segment.,  ranged  from  20  to  180. 

Identical  series  of  problems  were  solved  for  plates  of  unidirectional 
boron-epoxy,  of  zero  degree  and  ninety  degree  orientations. 

Again  the  stress  distribution  along  the  x  and  y  axes  interior  to 
the  body  was  obtained,  as  well  as  surface  stresses  around  the  entire  cutout. 


The  hoop  stresses  around  the  cutout  at  the  surface  were  compared  to  the 
theoretical  results  of  Lekhnitskii,  and  results  appear  in  Tables  8  and  9. 
These  stresses  are  computed  directly  from  displacements  and  tractions,  and 
thus  provide  a  means  of  evaluating  the  boundary  solution  capability  of 
the  program.  Results  compared  extremely  well  with  the  theoretical  calcu¬ 
lations,  even  for  the  higher  stress  concentrations. 

The  accuracy  of  the  solutions  obtained  are  dependent  on  both  the 
stress  concentration  gradients  present,  and  length  of  segment  used  in  the 
model.  This  behavior  is  expected,  since  the  basic  algorithms  employed  are 
similar  to  those  of  the  isotropic  program,  DIPOME.  Time  required  for 
interior  solution  points  was  again  about  ten  times  that  for  boundary 
points. 

S.3.Z.Z  Anisotropic  Material 

The  problem  of  a  circular  cutout  in  an  infinite  plate  was  next 
solved  for  a  completely  anisotropic  material,  unidirectional  boron-epoxy 
at  an  orientation  of  45  degrees.  There  was  no  symmetry  about  either  the 
x  or  y  axis,  as  had  been  present  before,  so  the  entire  cutout  surface 
was  modeled. 

As  before,  the  hoop  stresses  at  the  surface  of  the  cutout  were 
obtained  and  are  compared  with  the  results  of  Lekhnitskii  in  Tables  10 
and  11.  Two  problems  were  solved,  one  employing  20  segments,  and  the 
other  90  segments,  to  represent  the  surface.  Here  again  agreement  with 
theoretical  results  was  excellent  along  the  entire  surface. 
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TABLE  2  -  INTERIOR  STRESS  SOLUTIONS  -  DIPOME 


c 

»».glis 

40  Segments 

120  Segments 

200  Segments 

0.00 

5.00 

5.116 

5.01 

5.002 

.001 

4.96 

101.9 

35.2 

22.3 

.005 

4.82 

9.81 

5.52 

4  39 

.010 

4.65 

6.13 

4.59 

4.56 

4.34 

4.54 

4.29 

4.35 

4.03 

4.04 

4.08 

4.09 

.040 

3.85 

3.78 

3,86 

3.86 

3.65 

3.59 

3.66 

3.66 

.070 

3.31 

3.29 

3.32 

3.32 

.100 

2.92 

2.92 

2.93 

2.93 

.200 

2.18 

2.19 

2.19 

2.19 

.400 

1.61 

1.62 

1.62 

1.62 

.600 

1.40 

1.40 

1 .40 

1.40 

.900 

1.24 

1.24 

1.24 

1,24 

TABLE  3  - 

INTERIOR  STRESS  SOLUTIONS  -  DIP0ME 

HI 

Inglis 

40  Segments 

120  Segments 

200  Segments 

0.00 

-1.00 

-0.983 

-0.994 

-0.996 

.001 

-0.997 

-13.0 

-4.90 

-3.24 

.005 

-0.985 

-2.42 

-1.32 

-1.11 

.010 

-0.970 

-1.5? 

-1.03 

-0.965 

-0.941 

-1.09 

-0.925 

-0.926 

-0.912 

-0.959 

-0.895 

-0.906 

.040 

-0.884 

-0.888 

-0.873 

-0.882 

.050 

-0.857 

-0.843 

-0.850 

-0.856 

.070 

-0.805 

-0.782 

-0.802 

-0.804 

.100 

-0.805 

-0.713 

-0.729 

-0.731 

.200 

-0.525 

-0.518 

-0.523 

-0.524 

.400 

-0.251 

-0.247 

.  -0.250 

-0.250 

?  Em  .! 

-0.099 

-0.097 

-0.099 

-0.099 

o 

o 

er> 

• 

+0.006 

+0.008 

+0.007 

+0.007 
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ASPECT  RATIO  =4.5 


TABLE  5  - 

-  INTERIOR  STRESS  SOLUTIONS  -  DIP0ME 

x-b 

c 

Inglis 

40  Seg  ments 

120  Segments 

200  Segments 

0.00 

-1.00 

-0.984 

-0.994 

-0.997 

.001 

-0.997 

-90.7 

-Cl  .4 

-19.2 

.005 

-0.997 

-2.43 

-1.32 

-1.11 

.010 

-0.974 

-1.48 

-1.03 

-0.966 

.020 

-0.949 

-1.08 

-0.931 

-0.937 

.030 

-0.923 

-0.952 

-0.908 

-0.920 

.040 

-0.898 

-0.S93 

-0.890 

-0.893 

.050 

-0.874 

-0.855 

-0.870 

-0.874 

.070 

-0 . 82t 

-0.804 

-0.825 

-0.826 

.100 

-0.758 

-0.743 

-0.756 

-0.758 

.200 

-0.553 

-0.549 

-0.552 

-0.553 

o 

o 

-0.258 

-0.258 

-0.258 

-0.259 

.600 

-0.087 

-0.088 

-0.087 

-0.087 

.900 

+0.029 

+0.028 

+0.029 

+0.029 

a 
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TABLE  6  - 

-  INTERIOR  STRESS  SOLUTIONS  -  DIPOME 

Xzl 

c 

Inglis 

40  Segments 

120  Segments 

200  Segments 

0.00 

40.0 

88.7 

50.9 

44.5 

.001 

23.5 

88.2 

31.0 

27.0 

.005 

10.9 

16.9 

11.7 

11.4 

.010 

7.50 

10.0 

7.80 

7.67 

.020 

5.22 

6.28 

5.32 

5.27 

.030 

4.26 

4.88 

4.30 

4.28 

.040 

3.70 

4.12 

3.72 

3.71 

.050 

3.32 

3.63 

3.33 

3.32 

.070 

2.83 

3.03 

2.34 

2.83 

.100 

2.41 

2.53 

2.41 

2.41 

.200 

1.81 

1.85 

1.81 

1.81 

.400 

1.43 

1.44 

1.43 

1.42 

.600 

1.28 

1.29 

1.28 

1.28 

.90C 

1.18 

1.18 

1.18 

1.18 

TABLE  7  -  INTERIOR  STRESS  SOLUTIONS  -  DIPOME 


_ _ _  - 1 

Ini 

Inglis 

40  Segments 

120  Segments 

200  Segments 

0.00 

-1.00 

-.966 

-.985 

-.994 

.001 

-0.997 

-10.9 

-4.26 

-2.89 

.005 

-0.989 

-2.11 

-1.22 

-1.06 

.010 

-0.979 

-1.37 

-0.996 

-0.959 

.020 

-0.957 

-1.035 

-0.921 

-0.939 

.030 

-0.936 

-0.928 

-0.904 

-0.926 

.040 

-0.915 

-0.876 

-0.890 

-0.907 

.050 

-0.894 

-0.845 

-0.873 

-0.887 

.070 

-0.852 

-0.803 

-0.834 

-0.845 

.100 

-0.730 

-0.752 

-0.775 

-0.784 

.200 

-0.598 

-0.581 

-0.587 

-0.594 

.400 

-0.293 

-0.294 

-0.289 

-0.291 

.600 

-0.099 

-0.107 

-0.099 

-0.099 

.900 

+0.037 

+0.030 

+0.035 

+0.037 

Figure  4:  Accuracy  of  DIPOME  —  Elliptical  Cutout 


|  TABLE  8  ~  SURFACE  HOOP  STRESS  COMPARISONS,  a  =  0° 

e(DEG) 

20  Segments 

180  Segments 

EXACT* 

1.0 

-0.296 

-0.299 

5.0 

-0.284 

-0.287 

9.0 

-0.215 

-0.258 

-0.261 

13.0 

-0.222 

-0.225 

17.0 

-0.180 

-0.182 

21.0 

-0.133 

-0.136 

27.0 

-0.054 

-0.063 

-0.065 

29.0 

-0.040 

-0.041 

33.0 

0.008 

0.006 

37.0 

0.058 

0.056 

41.0 

0.111 

0.110 

45.0 

0.164 

0.170 

0.170 

49.0 

0.240 

0.240 

53.0 

0.326 

0.326 

57.0 

0.435 

0.436 

63.0 

0.642 

0.681 

0.682 

65.0 

0.799 

0.798 

69.0 

1.111 

1.114 

73.0 

1.609 

1.614 

77.0 

2.441 

2.447 

00 
m  J 

• 

o 

3.53? 

3.889 

3.880 

65.0 

6.130 

6.127 

89.0 

8.160 

8.127 

♦Due  to  Lekhnltskll 
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FIBER  DIRECTION 


e(DEG) 

1.0 

5.0 

9.0 

13.0 

17.0 

21.0 

27.0 

29.0 

33.0 

37.0 

41.0 

45.0 

49.0 

53.0 

57.0 

63.0 

65.0 

69.0 

73.0 

77.0 

81.0 

85.0 

89.0 


TABLE  9  -  SURFACE  HOOP  STRESS  COH’ARISONS,  a  =  90° 


20  Segments 


180  Segments 


EXACT* 


-0.367 


-3.19 

-2.22 

-1.12 


-3.28 

-2.29 

-1.165 


-0.419 


-0.442 


+0.625 


+1.126 


+1.892 


+2.883 


+0.012 

-0.008 

0.281 

+0.267 

0.546 

0.538 

0.616 

0.608 

0.741 

0.736 

0.859 

0.856 

0.979 

0.976 

1.105 

1.103 

1.243 

1.242 

1.398 

1.398 

1.573 

1.573 

1.877 

1.878 

1.990 

1.991 

2.229 

2.230 

2.478 

2.481 

2.723 

2.725 

2.937 

2.940 

3.093 

3.096 

3.165 

3.169 

TABLE  10 

-  SURFACE  HOOP  STRESS  COMPARISONS,  a 

=  45° 

i  THETA 

EXACT 

90  Segments 

THETA 

EXACT 

90  Segments 

0 

-0.812 

-0.808 

96 

2.168 

2.169 

4 

-0.706 

-0.703 

104 

2.396 

2.400 

8 

-0.596 

-0.593 

112 

2.840 

2.848 

16 

-0.337 

-0.335 

120 

3.o59 

3.681 

24 

+0.015 

+0.016 

128 

4.701 

4.791 

32 

.499 

.500 

136 

1.703 

1.823 

40 

1.082 

1.084 

144 

-1.799 

-1.773 

48 

1.620 

1.623 

152 

-1.804 

-1 .787 

56 

1.955 

1.957 

160 

-1.444 

-1.434 

68 

2.081 

2.082 

168 

-1.151 

-1.144 

72 

2.073 

2.073 

176 

-0.918 

-0.913 

80 

2.051 

2.052 

184 

-0.706 

-0.703 

88 

2.069 

2.070 
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TABLE  11  -  SURFACE  HOOP  STRESS  COMPARISONS 


THETA 

EXACT 

20  Segments 

9 

-0.567 

-0.565 

27 

0.180 

0.186 

45 

1.436 

1.477 

63 

2.067 

2.107 

81 

2.050 

2.065 

99 

2.235 

2.246 

117 

3.296 

3.473 

135 

2.453 

3.189 

153 

-1.759 

-1.747 

171  -1.058  -1.043 


169 


-0.567 


-0.565 


5.4  ADVANCED  TOPICS  IN  ANISOTROPIC  INTEGRAL  EQUATION  SOLUTION  METHODS 
5.4.1  Introduction 

The  "Integral  equation  method"  referred  to  in  this  Section  is 
basically  a  technique  for  obtaining  accurate  approximate  solutions  for  a 
wide  variety  of  physical  problems  governed  by  linear  partial  differential 
equations.  As  is  clear  from  a  number  of  papers  e.g.  [1 >2,3,4,53  the  method 
has  reached  a  considerable  stage  of  development  and  Is  emerging  as  an  im> 
portant  tool  conparable  to  and  potentially,  we  think,  better  than  finite 
element  and  finite  difference  techniques  for  certain  problems.  This  ap¬ 
pears  to  be  particularly  true  for  a  variety  of  problems  Involving  material 
composites. 

A  glance  at  the  work  cited  above  reveals  that  the  method  depends 
crucially  on  the  existence  and  explicit  definition  of  a  fundamental  singu¬ 
lar  solution  to  the  appropriate  governing  partial  differential  equations. 
Therefore,  In  an  attempt  to  open  up  the  field  of  linear  three-dimensional 
anisotropic  elasticity  to  attack,  via  the  Integral  equation  method,  con¬ 
siderable  effort  was  directed  toward  Investigating  what  Is  known  of  the 
necessary  singular  solution.  As  noted  earlier,  this  solution  is 
the  field  due  to  a  concentrated  force  In  an  infinite  anisotropic  media. 

Two  major  works  [6]  and  [7]  were  found  on  this  topic,  and  examined  with 
respect  to  the  stated  objective.  Details  primarily  concerned  with  making 
representations  of  the  singular  solution  available  for  practical  purposes 
ar®  given  later  In  this  Section. 

The  problem  of  Interlaminar  shear  was  Investigated  with 
a  view  toward  attacking  this  problem  (as  defined  by  R.  B.  Pipes  [8])  via 
the  Integral  equation  method.  Under  the  appropriate  assumptions,  the 


relevant  surface  integrals  reduce  to  path  integrals  around  eacn  of  the 
layers.  While  the  problem  is  not  completely  two-dimensional  in  nature, 
significant  advantages  still  seem  to  be  present  with  the  integral  equation 
method  for  both  isotropic  and  anisotropic  layers  to  warrant  further 
investigation  with  test  problems.  Details  of  the  formulation  for  isotropic 
layer  assumptions  and  a  discussion  of  the  possibilities  for  anisotropic 
layers  are  included  in  this  Section. 


5.4. 2  Fundamental  Three-Dimensional  Anisotropic  Singularity 
5. 4. 2. 1  Via  John  [?] 

The  work  by  John  [7]  which  is  in  essence  "a  somewhat  heterogeneous 
collection  of  results  on  partial  differential  equations'1  contains,  in 
Ch.  Ill,  a  method  for  constructing  the  so-called  fundamental  singular 
solution  for  an  elliptic  system  of  linear  partial  differential  equations 
with  analytic  coefficients.  Since  our  main  concern  here  is  with  homogene¬ 
ous  anisotropic  elasticity  theory,  we  will  specialize  John's  development 
at  the  outset  and  explicitly  deal  with  the  system  of  equations 


Cijkluk,lj 


=  0 


0) 


Equations  (1)  are  the  equations  of  equilibrium  in  the  absence  of  body 


forces  for  a  linear  elastic  solid  obeying  the  constitutive  relation 


T  •  •  —  ^  *  'i  l 

ij  ljkl  kl 

in  whici.  are  constants,  and  t.^  ,  e^ .  ,  u^  the  stress,  strain, 
and  displacement  components  assuming  the  linearized  theory.  As  usual 


we  take 


Cijkl  =  Cklij 


together  with  necessary  symmetries  in  the  first  and  second  pair  of  indices 
such  that  Cjjk-j  Implies  at  most  twenty  ine  independent  constants. 
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We  recognize  that  Eqs.  (1)  Imply  the  existence  of  a  set  of  differ¬ 
ential  operators  such  that  Eqs.  (1)  may  be  written,  for  convenience  In 
the  symbolic  form 

L(k[uk]  =  0  (4) 

where,  specifically, 

L1k  =  C1 jkl  ax*  Xj 

A  fundamental  system  of  singular  solutions  U^k  of  Eqs.  (4)  according 
to  John  [7]  has  property  that  the  symbolic  equations 


Lik^Ujk  ^  =  0  for  x  t  y 
are  satisfied  where  x  and  y  are  two  arbitrary  points  In  space. 
Further,  the  functions  Ujk  have  the  additional  property  that 

yit.(y)  U.k(x,y)  -  u.(y)T  (x,y)]da(y)  =  0 
3R+r  3  ~  '  '  -  -  '  - 


(6) 


(7) 


where  3R  Is  the  boundary  of  a  regular  region  of  space  R,  and  r  is  the 
surface  of  a  small  sphere  of  radius  c  surrounding  the  point  x,  nk  are 
the  components  of  the  "outer"  normal  at  y(y  on  8R  +  r)  to  the  region 
"enclosed  by"  aR  +  r,  and  Tjk  represents  a  set  of  functions  derivable 
from  Ujk«  The  function  u^  Is  an  arbitrary  solution  to  Eq.  (4)  and  t^, 
derivable  from  u^,  represents  the  surface  traction  on  the  anisotropic 
body  which  is  assumed  to  occupy  the  region  R.  If  we  now  take  the  limit 
In  Eq.  (7)  as  e  goes  to  zero,  l.e.,  shrink  r  indefinitely  about  x,  the 
orders  of  the  singularities  In  Ujk  and  Tjk  are  such  that  Eq.  (7)  reduces  to 

=  /[“ j  -  t.(y)ujk(x,y)]da(y)  (8) 


258 


A  glance  at  the  cited  works  [1 ,3,4,5]  reveals  that  the  above 
properties  (6),  (7),  and  (8)  of  the  functions  are  precisely  those 
needed  to  formulate  the  integral  equation  method  for  three-dimensional 
anisotropic  elastic  boundary  value  problems.  Physically,  represents 
a  set  of  displacement  or  influence  functions;  i.e.,  Uj^x.y)  is  the 
displacement  in  the  j  coordinate  direction  at  y  due  to  a  concentrated 
force  in  the  k  coordinate  direction  at  x.  Further,  represents  traction 
components  at  y  across  an  arbitrary  surface  with  orientation  n.  These  are 


obtained  from  Ujk  according  to  the  familiar  relation 
Tjk  =  \  Cjplm^Ulk,n?  +  Umk,l^  np 

just  as  the  arbitrary  traction  t.  is  related  to  u-  according  to 

J  J 


1  j  = 


\  Cjplm  £ul,m  +  um,l]  np 


O) 


(10) 


Thus  since  the  relation  (8)  is  the  desired  relation  to  accomplish  the 
anisotropic  formulation  everything  depends  on  the  availability  of  an 
explicit  relation  for  U^.  To  construct  for  Eqs.  (4),  with  the 
properties  (6)  through  (8)  John  [7],  pg.  76,  gives  the  formula 

Ujk(^}  =~TAv  /  PkjU)((x-y)-  5]sgn[(x-y)-C]dnf 


16tt  2  l  n 


(11) 


In  Eq.  (II),  A^  is  the  Laplacian  with  respect  to  the  coordinates  at  y  of 
the  integral  over  which  is  a  sphere  of  unit  radius  with  origin  at  5  =  0. 
PkjU)  is  the  inverse  of  the  matrix  Q^(g)  which  in  turn  is  the  character¬ 
istic  form  of  the  operator  L.^.  This  characteristic  form  is  explicitly 

-  cijki¥j  <12> 

in  which  c.  are  components  of  the  vector  5. 
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Space  does  not  permit  nor  would  it  be  appropriate  to  discuss 
here  the  rather  detailed,  abstract,  and  frequently  obscure  arguments 
leading  up  to  formula  (11).  Moreover,  formula  (11)  as  written  above  Is 
an  abridgement  of  the  relations  which  aopear  In  John  [7]  appropriate  to 
anisotropic  elasticity  with  the  additional  assumption  of  material  homo¬ 
geneity  (C-jji^  constants).  Tne  actual  treatment  In  John  [7]  deals  w-.th 
operators  of  more  general  order  than  two  and  in  spaces  of  n  dimension  as 
veil  as  allowing  for  the  possibility  of  non-constant  (but  analytic) 
coefficients.  This  last  feature  could  be  of  interest  for  problems  In¬ 
volving  inhomogeneous  media.  However,  the  remainder  of  the  present  dis¬ 
cussion  will  be  confined  to  Ujj,  as  given  by  formula  (11).  Indeed,  as  will 
be  explained,  algebraic  expressions  for  from  Eq.  (11)  even  under  the 
present  assumptions  of  full  (21  constant)  anisotropy  will  be  difficult  to 
obtain. 


To  best  appreciate  the  last  remark  consider  now  formula  (11)  in 
more  detail.  Let  x  -  y  =  R  such  that 

R  •  K  sgn  R  •  £  -  R  |  cos  $|  (13) 

where  R  is  the  magnitude,  i.e.,  R  =  |  R  |,  ofR,  t“U|  =  1,  and 
<j>  is  the  angle  between  R  and  5.  Thus  since  R  does  not  vary  with  5 
Eq.  (11)  may  be  written 

Uik(x,y)  =  A  (R/pkjU)  j cos  *|d  n_)  (14) 

J  -  ~  16it2  in-  5 

Further,  let 

Ajk  5  n  /  pkj  (?)  !cos*l  dn5  (15) 
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1 


such  that 


Ujk  l*#)  =  "  ik2  Ay  {RAjk} 


(16) 


Clearly  Is  a  tensor  whose  components  depend  only  on  C^k1  and,  of 

course,  the  choice  of  cartesian  basis  inasmuch  as  the  components  of  lhk 

Itself  depend  on  such  a  basis.  Thus  the  ability  to  obtain  explicit 

algebraic  expressions  for  Ujk  is  dependent  solely  upon  the  ability  to 

perform  the  integrations  (15)  for  A  . 

ki Jk 

As  mentioned  earlier,  P  J(0  is  the  inverse  of  the  quadratic 


form  Q.|kU)  (Eq.  12).  Explicitly, 


Pk i  (C)  =  2  ek^£jpqQip(-)Qn»q  (-j 

Det  Q 


(17) 


in  which  e.^  is  the  alternating  symbol  and  Det  Q  is  the  determinant  of 
the  matrix  Q^.  Now  since  Det  Q  is  of  sixth  degree  in  and  the  numera¬ 
tor  is  (17)  is  of  fourth  degree,  the  ability  to  evaluate  the  e.ements  A^k 
analytically  in  closed  form  is  largely  dependent  on  the  ability  to  factor 
the  expressions  implied  by  (17).  Guided  by  the  related  investigations  of 
Kroner  [10]  and  Lie  and  Koehler  [11]  this  is  expected  to  be  possible  under 
the  assumptions  of  special  anisotropy,  e.g.,  cubic  or  hexagonal  symmetry. 
However,  recognition  of  the  tensor  character  of  A^k  allows  the  following 
plan  to  be  adopted  in  order  to  obtain  explicit  practical  expressions  for 
Ujk  under  more  general  conditions  of  anisotropy.  Choose  a  convenient 
orthonormal  basis  and  evaluate,  numerically  if  need  be,  the  integrals  in 
(15)  for  a  given  set  of  C.^.  Having  thus  obtained  a  set  of  values  for 
Ajk  for  that  basis,  Ajk  for  any  other  basis  is  obtainable  by  simple  car¬ 
tesian  tensor  transformation.  Recognizing  further  that  the  direction 
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cosines  of  R  referred  to  a  given  basis  are  of  the  form  [xj(x)  -  Xj(y)]/R, 
allows  the  gradient  and  laplacian  with  respect  to  y  to  be  evaluated  as 
required  in  Eq,  (16). 

As  an  example  of  the  above  consider  the  special  case  of  complete 
Isotropy  for  which 

C1jkl  =  x  6ij6kl  +  M^1jdjl  +  d116jk*  (18) 

where  X  and  y  are  the  Lame'  elastic  constants.  Here  It  Is  easily  shown 
through  Eq.  (17)  that  P^U)  has  the  form 

pjk(e)  - 

where  a  and  0  are  constants  obtainable  from  X  and  y  alone.  Thus  the 
expressions  for  Ajk  via  Eq.  (15)  become 

Ajk  *  <*6^  | cos  ♦IdQ^  ♦  00/5^  |cos  *|  dfl^  (19) 

A  little  reflection  on  the  Integrals  In  Eq.  (19)  reveals  that  the  first 
Integral  Is  twice  the  first  moment  of  a  unit  hemispherical  shell  about 
the  basal  plane  perpendicular  to  R.  Similarly,  the  second  Integral 
represents  the  Inertia  components  of  a  spherical  shell  referred  to  a 
given  basis  where  the  "mass  density”  (|cos  t{)  of  the  shell  varies 
linearly  with  respect  to  height  above  the  same  basal  plane.  Clearly, 
the  calcu'atlons  here  would  most  conveniently  be  made  taking  one  coordinate 
direction  in  the  direction  of  R  and  the  other  two  in  the  mentioned  basal 
plane.  Subsequently,  the  desired  A^  for  a  more  general  orientation  of 
basis  with  respect  to  R  could  be  easily  obtained  by  cartosian  tensor 
transformation.  We  note  finally  In  passing  that  the  result  of  the  above 
calculations  for  material  Isotropy  results  In 
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wnywjti 


V?1?’  =  16.u(l-v)R  t(3-4v}ijk  .  cos  *.  cos  *k]  (20) 

in  which  v=x/2  (x+p)  and  ♦  •  is  the  angle  between  the  vector  R  and  the 

J  *® 

Xj  axis.  Expression  (20)  is  the  fundamental  isotropic  singular  solution 
(see  e.g.  Cruse  [3]). 

The  key  feature  of  the  above  proposed  method  is  the  ability  to 
perform,  if  need  be,  part  of  the  calculation  numerically  and  still  obtain 
all  dependence  of  on  x,y  and  basis  orientation  with  respect  to  x-y 
analytically.  This  is  important  since  gradients  of  at  y  are  required 
for  the  integral  equation  method  and  such  gradients  may  therefore  be  taken 
analytically.  Thus,  in  light  of  the  goal  of  this  portion  of  the  research, 
i.e.,  obtaining  an  explicit,  usable,  algebraic  form  for  U^k  for  complete 
anisotropy,  it  appears,  despite  numerical  evaluation  of  certain  integrals 
in  general,  that  the  job  can  be  done  via  the  outlin'd  method. 
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5.4.2. 2  Via  Fredholm  [fi] 

The  fundamental  paper  by  Fredholm  [6]  displays  an  alternative 
method  for  constructing.  In  principle,  the  fundamental  solution  dis¬ 
cussed  above.  Like  John's  [7],  Fredholm's  work  leads  to  a  formal  Implicit 
representation  for  the  solution.  However,  unlike  with  John's  procedure 
it  is  not  clear  to  the  writer  that  one  would  be  able  to  effect  as  useful 
a  reduction  of  the  method  except  for  special  anisotropy,  by  any  means 
numerical  or  otherwise 

Fredholm  motivates  his  work  by  attempting  to  extend  the  idea  of 
the  particular  solution  1/r  of  Laplaces  equation  Au  *  0  to  the  equations 
of  anisotropic  elasticity  (1).  He  first  eliminates  two  components  of  u^ 

In  Eqs.  (4)  and  ‘‘hows  that  the  remaining  component  (and  hence  each  com¬ 
ponent  u^)  must  satisfy  a  sixth-order  differential  equation  of  the  form 

f(uk)  *  0  (21) 

where  f  Is  a  sixth-order  linear  homogeneous  differential  operator  which 
is  explicitly  the  determinant  of  L^k  (Eq.  (5)).  He  then  chooses  as  his 
fundamental  solution 

u  ,  f  (22) 

i  Jc  f2(S,n)  Uxj  ♦  nx2  ♦  x3) 

where  are  polynomials  In  5  and  n  of  the  fifth  order  of  lower  and 

f2U,n)  =  |^  f(C.n,  U.  (23) 

with  f(r.,n,  1)  being  the  definite  algebraic  form  obtained  by  replacing 
the  operations  a/ax^,  (1  =  1,2,3)  by  £,n,  and  1,  respectively.  The 
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integration  is  around  a  closed  contour  c  in  £  space  containing  only 
those  singular  points  which  are  rorts  of  *  0  where  n  is  given  by 

^*1  ♦  V2  +  x3  *  3  m 

The  polynomials  above  are  complicated  algebraic  expressions  (see  [6] 
pg.  14)  obtained  from  L^.  Fredholm  then  goes  on  to  show  that  each 
component  of  the  required  tensor  field  U3k  is  of  the  form  (22)  and 
rigorously  establishes  all  of  the  properties  of  the  solution. 

It  seems  clear  from  the  work  of  Kroner  [10]  and  Lie  and  Koehler 
[11]  that  any  attempt  to  reduce  Fredholm's  method  to  something  useful  for 
other  than  hexagonal  or  cubic  crystal  symnetry  assumptions  would  be  most 
difficult  indeed.  Detailed  information  on  the  particulars  of  this  can 
best  be  obtained  by  careful  study  of  the  references  [10,11]  plus  Fredholh/s 
original  paper  [6].  It  should  be  clear;  however,  that  if  the  previous 
discussion  and  reduction  of  John's  [7]  approach  is  valid  as  outlined,  it 
must  be  possible  to  accomplish  the  same  task  via  Fredholm  also  since  the 
desired  is  unique.  Nevertheless,  the  transformation  of  contour 
integral  in  space  to  one  over  the  unit  sphere,  of  functions  which  are 
necessarily  related  but  not  explicitly  so,  is  bour.j  to  be  an  extremely 
difficult  task.  Further,  for  practical  purposes  and  in  light  of  the 
previous  section  the  effort  seems  hardly  worthwhile  in  the  near  future. 

It  is  my  judgement  that  to  formulate  the  integral  equation 
method  for  general  anisotropic  elasticity,  the  method  of  John  as  pre¬ 
viously  outlined  is  by  far  the  most  promising  at  this  point.  Indeed,  the 
outlined  reduction  with  the  ability  to  obtain  the  necessary  functional 
variational  analytically  is  better  than  was  hoped  for  at  the  start  of  the 
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Investigation.  If  a  similar  advantage  plus  others  are  present  also  in 
Fredholm's  technique  they  are  lost  to  me,  although,  to  be  fair,  much  more 
time  was  spent  with  [7J  than  [6]  because  of  the  positive  Indications  of 
[7]. 

5.4.3  Investigation  of  the  Interlaminar  Shear  Problem 

Consider  a  laminated  plate  as  shown  In  Fig.  1  loaded  on  Its  "x" 
faces  In  such  a  way  (cf.  Pipes  [8])  that  It  may  be  assumed  that  the  stress 
and  strain  fields  are  functions  of  y  and  z  alone.  Further  It  is  assumed 
that  displacement  components  are  of  the  form 
u1  =  cx  +  U1  (y,z) 

u2  *  U2  (y,z)  (25) 

u3  *  U3  (y,z) 

where  U.,  are  arbitrary  functions  and  c  is  a  constant.  Finally,  under  the 
assumption  that  each  lamina  is  homogeneous  and  isotropic  it  is  now  desired 
to  examine  the  possible  simplifications  which  may  arise  with  the  integral 
equation  method  by  the  process  of  "Integrating  out"  dependence  on  x. 

Specifically,  consider  the  boundary  formula  of  Cruse  ([3]  Eq. 

(14))  written  for  a  typical  lamina 

yu  (P)  ♦  Ju.(Q)T ..(P.Q)dS(Q)  =  /t.(Q)U..(P,Q)dS(Q)  (26) 

J  S  J  s  1 

where  expllclty  S  is  the  union  of  surfaces  S  ,  S  ,  5  of  the  lamina  per- 

x  y  z 

pendlcular  to  the  x,  y,  z  directions,  respectively,  see  Fig.  2.  Clearly, 
each  Integral  over  Sx  Is  an  Integral  of  functions  of  (±£,  y,  z)  such  that 
there  is  no  explicit  x  dependence  to  be  "removed"  in  those  integrals. 
Further,  since  there  Is  assumed  to  be  no  traction  on  the  Sy  surfaces  w* 
have 
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/t  (Q)U  (P,Q)dS  (Q)  =  0 

C  1  J1 


(27) 


Thus,  It  remains  to  consider  the  Integrals 

f  u  (Q)T  (P,Q)dS(Q) ,  f  t  (Q)U. . (P.Q)dS(Q) 

•'C  +C  A  JX  «/C  A  JA 


(28) 


's  +s 

x  z 


insofar  as  integrating  away  the  x  dependence.  More  explicitly,  integrals 
(28)  may  be  written 

jVjiU.X.it^.n.Odx  dy  (2S) 

£»,&.«)  fV  i(x,y,±t;t,n,C)dx  dy  (i  ^  1)  (30) 

^(y.it)  i^rj.(X,y,tt:C,rl,Odx  dy  ^^xTji(x,y,^;?,n,0  dx  dy 

J*  u  (iw.z)  pr  (x,±w,  z;5,n,c)  dx  dz  (i  t  1) 

-t  -l  J 


(31) 

(32) 


J^Czk.z)  jV.(x,±w,z;e,n,Odx  dz^c^xT..  (x,±wfz;5,n,Odx  dz  (33) 

in  which  x,  y,  z  are  the  coordinates  of  the  point  Q  and  c,n, c  are  the 
coordinates  of  the  point  P.  Our  task  therefore  Is  to  examine  the  expres¬ 
sions  for  each  component  of  the  kernel  functions  U^j  and  as  given  by 
Eqs.  (5)  and  (7)  In  Cruse  [3],  and  then  perform  the  definite  Integrals 
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with  respect  to  x  alone  from  to  l  as  Indicated  in  expressions  (29) 
through  (33)  above.  Note  that  performing  the  first  Integration  with 
respect  to  x  ir.  expressions  (31)  and  (33)  will  suffice  since  the  second 
such  integration  is  obtainable  directly  from  the  first  by  parts. 

Careful  consideration  of  the  mentioned  Eqs.  (5)  and  (7)  in  [3] 
for  the  components  of  and  and  designating  all  parts  of  the  inte¬ 
grands  which  are  independent  of  x  with  the  common  symbol  B  leads,  after 
some  "bookkeeping",  to  the  need  to  evaluate  only  integrals  of  the 
following  type 


_ (»_-On  dx 

[(x  -C)2  ♦  B2]  "/2 


(34) 


where  n  takes  on  integer  values  from  zero  through  3  and  m  takes  on  integer 
values  1,  3  and  5.  Such  integrals  for  values  of  m  and  n  indicated  are 
standard  entries  in  any  short  table  of  integrals  and  result  in  polynomial 
and/or  logarithmic  forms  in  the  variable  (x  -  O- 

Maintaining  care  with  the  mentioned  bookkeeping  problem,  and 
recognizing  that  each  of  the  -t  to  l  integrations  in  expressions  (29) 

a  * 

through  (33)  result  in  new  tensor  functions  U^,  independent  of  x, 
we  may  write  the  boundary  formula  (26)  in  the  form 


1 

2 


u.U,n,0+/V(±w,z)T.i(±£,±w,i,C,n,0dz 

j  *  j1 


.±t)  Tji(±E,y,±t;e,n,c)dy 


\iY.tt)  U...(±*,y,±t;e,n,C)  dy  = 


(35) 
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where  U,n,c)  is  that  function  obtained  by  integrating  all)  terms 
T^  with  c  as  a  constant  multiplier. 

The  question  now  arises,  to  what  extent  may  explicit  dependence 
on  the  length  t  of  the  lamina  be  eliminated  and  still  retain  sufficient 
information  to  obtain  what  is  required  in  a  given  problem.  Examination 
of  the  terms  in  equation  (35)  reveals  that  as  l  goes  to  infinity,  f .  is 

w 

bounded,  and  all  components  of  and  T^,  with  the  exception  of  U^,  are 
zero  or  finite.  The  component,  which  alone  contains  logarithmic  terms 
blows  up  with  increasing  l.  However,  since  it  may  be  argued  that  the 
component  of  traction  t1  on  the  surfaces  $2  must  be  zero  for  isotropic  media 
under  the  present  assumptions,  no  difficulty  is,  in  fact,  encountered  with 
that  term.  Finally,  it  is  clear  that  the  integrals  over  Sx  on  the  right 
side  of  Eq.  (35)  vanish  with  increasing  l ,  such  that  all  "input"  informa¬ 
tion  on  the  faces  $x  indefinitely  far  apart  is  contained  in  the  limit 
of  the  term  c  fj. 

It  is  now  evident  that  it  suffices  to  consider  the  "mid-x"  plane 
of  a  typical  lamina  and  to  allow  point  P  to  occupy  positions  only  on  the 
rectangular  boundary  of  this  plane  (i.e.,  consider  only  £  =  0).  Thus,  Eq. 
(35)  in  reduced,  x-independent,  form  may  be  written 

We  that  one  term  is  contributed  to  f,  from  each  pair  of  surfaces  of 
the  lamina. 


(36) 


jU.(n,0 


+/V(±w, 


z)T!i(±w,z,n,C)dz 


*t)U!t(y,±t;ii,Ody 


^(y.itJTj.Cy.it.n.Ody  =  C  ft  (±w,±t,n,0 


where  the  primes  indicate  limiting  forms  of  the  functions  as  l  -*■  -  and 
6*0. 

Application  of  Eq.  (36)  in  the  solution  of  the  interlaminar  shear 
problem  is  as  follows.  Specify  the  constant  c  and  perform  the  necessary 
integrations  to  obtain  the  function  fj  (J.w,  ±t,  n,  s)  for  each  lamina 
mid-plane.  Then,  write  Eq.  (36)  for  each  such  plane  using  an  appropriate 
approximation  scheme  as,  perhaps,  outlined  by  [1,4].  Recognize  further 
that  the  two  integrals  in  Eq.  (36)  from  -w  tow  for  a  given  lamina  mid- 
plane  are  coupled  with  simlar  integrals  for  the  remaining  lamina.  The 
boundary  conditions  between  lamina  are  that  and  t^  be  continuous 
across  the  adjacent  boundaries  and  that  the  trp  and  bottom  boundaries 
are  free  of  traction  t^.  Unknowns  to  be  obtained  therefore  by  nunerical 
solution  of  the  integral  equations  are  discrete  values  of  U^y.z)  and 
t.(y,z)  at  selected  discrete  points  on  the  boundaries  of  the  lamina 
mid-planes. 

Note  in  the  above  that  while  the  integrations  in  Eq.  (36)  are 
over  the  lamina  mid-plane  boundaries  all  Indices  have  the  range  1,  2,  3 
such  that  as  mentioned  in  the  introduction  the  problem  is  not  truly  two- 
dimensional  in  nature.  However,  it  appears  that  the  method  outlined  above 
is  most  feasible  with  much  promise  for  success  in  light  of  numerical 
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work  already  accomplished  for  both  two  and  three  dimensional  problems 
(e„g.  [2,3,9,12]).  Most  Important,  coupling  the  above  Ideas  with  those 
set  forth  In  the  previous  section.  It  is  possible  to  attack  the  difficult 
interlaminar  shear  problem  under  the  assumption  of  fully  anisotropic  or 
specially  anisotropic  lamina. 
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FIGURE  2:  INDIVIDUAL  LAMINA  NOTATION 
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